Sponsored Content
Top Forums Shell Programming and Scripting Perl :: to parse the data from a string. Post 302833657 by scriptscript on Wednesday 17th of July 2013 02:48:09 PM
Old 07-17-2013
Perl :: to parse the data from a string.

Hi folks,

I have a line in log from which I need to parse few data.
Code:
Jul  6 00:05:58 dg01aipagnfe01p %FWSM-3-106011: Deny inbound (No xlate)

From the above... I need to parse the %FWSM-3-106011: substring.

Another example
Code:
Jul 13 00:08:55 dq01aipaynas01p %FWSM-6-302010: 2 in use, 1661 most used

from the above Ineed to parse the %FWSM-6-302010: substring in perl.

Could anyone please let me know how to parse as mentioned above in PERL..


Thanks in advance ....

Regards,
J
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Perl: Search for string then parse next line

Hi All, I have a file that I need to be able to find a pattern match on one line then parse data on the next or subsequent lines - I will know which line needs to be parsed beforehand. This is what I currently have: while (<COMMAND_OUT>) { if ($_ =~ m/TEST/) { ... (4 Replies)
Discussion started by: pondlife
4 Replies

2. Shell Programming and Scripting

Perl parse string to time

Hi, I have got this value 18:21:23.330 in one of my variables. Now I need to parse this time to something. And then I have to compare it with 2 times, let's say, 15:00 hrs to 23:00 hrs. Can Date::Manip rescue me from this horrifying situation? I am quite new to Perl and especially this... (1 Reply)
Discussion started by: King Nothing
1 Replies

3. Shell Programming and Scripting

How to parse data?

Hi all, I have output of paction command looking like this: RELCI 0 IP address 1.2.16.3 Xmit: CURRENT Recv: WAIT_HEADER 0 congestions 2617/0 buf. sent/rec Xmit: CURRENT Recv: WAIT_HEADER 0 congestions 0/0 buf. sent/rec BUFFER Xmit: ... (6 Replies)
Discussion started by: sameucho
6 Replies

4. Shell Programming and Scripting

Parse data

hi i have a file p1.htm <div class="colorID2"> aaaa aaaa aa <br/> bbbbbbbb bbb<br/> <br/>cccc ccc ccc </div><div class="colorID1"> dddd d ddddd<br/> eeee eeee eeeeeeeeee<br/> fffff <br/>g gg<br/> (5 Replies)
Discussion started by: saw7
5 Replies

5. Shell Programming and Scripting

perl search string for cut data

perl -lne '$/="1H1XXXXX";print $_ if /0001|0002|0003/' data.txt> output.txt more data.txt 1H1XXXXX|0001|Y| aaa bbb ccc 1H1XXXXX|0005|N| bbb g 1H1XXXXX|0001|Y| hhh ddd 222 1H1XXXXX|0002|Y| 444 1H1XXXXX|0002|N| 222 1H1XXXXX|0003|Y| hhhh (3 Replies)
Discussion started by: kittiwas
3 Replies

6. Shell Programming and Scripting

parse a mixed alphanumeric string from within a string

Hi, I would like to be able to parse out a substring matching a basic pattern, which is a character followed by 3 or 4 digits (for example S1234 out of a larger string). The main string would just be a filename, like Thisis__the FileName_S1234_ToParse.txt. The filename isn't fixed, but the... (2 Replies)
Discussion started by: keaneMB
2 Replies

7. Shell Programming and Scripting

Parse data

Guys , please help me out with another AWK solution ... Input Device Physical Name : Not Visible Device Symmetrix Name : 0743 Front Director Paths (2): { ---------------------------------------------------------------------- ... (5 Replies)
Discussion started by: greycells
5 Replies

8. Shell Programming and Scripting

Regex to Parse data

Experts and Informed folks, Need some help here in parsing the log file. 1389675 Opera_ShirtCatalog INSERT INTO Opera_ShirtCatalog(COL1, COL2) VALUES (1, 'TEST1'), (2,'TEST2'); 1389685 Opera_ShirtCatlog_Wom INSERT INTO Opera_ShirtCatlog_Wom(col1, col2, col3) VALUES (9,'Siz12, FormFit',... (12 Replies)
Discussion started by: ManoharMa
12 Replies

9. Programming

Perl parse string

Hi Perl Guys I have another perl question I have the following code that i have written Getopt::Long::config(qw( permute bundling )); my $OPT = {}; GetOptions($OPT, qw( ver=s help|h )) or die "options parsing failed"; This will allow the user to do something like... (4 Replies)
Discussion started by: ab52
4 Replies

10. Solaris

Need command to parse data

Hi Friends, I have data like below t064266 I want output into this format t064266 Data are space delimited and i want parse third column data. Thanks (9 Replies)
Discussion started by: Jagaat
9 Replies
Info::CiscoStats(3pm)					User Contributed Perl Documentation				     Info::CiscoStats(3pm)

NAME
SNMP::Info::CiscoStats - Perl5 Interface to CPU and Memory stats for Cisco Devices AUTHOR
Eric Miller, Max Baker, Sam Stickland SYNOPSIS
# Let SNMP::Info determine the correct subclass for you. my $ciscostats = new SNMP::Info( AutoSpecify => 1, Debug => 1, # These arguments are passed directly on to SNMP::Session DestHost => 'myswitch', Community => 'public', Version => 2 ) or die "Can't connect to DestHost. "; my $class = $ciscostats->class(); print "SNMP::Info determined this device to fall under subclass : $class "; DESCRIPTION
SNMP::Info::CiscoStats is a subclass of SNMP::Info that provides cpu, memory, os and version information about Cisco Devices. Use or create in a subclass of SNMP::Info. Do not use directly. Inherited Classes None. Required MIBs CISCO-PRODUCTS-MIB CISCO-PROCESS-MIB CISCO-MEMORY-POOL-MIB SNMPv2-MIB OLD-CISCO-SYSTEM-MIB CISCO-STACK-MIB CISCO-ENTITY-VENDORTYPE-OID-MIB CISCO-FLASH-MIB ENTITY-MIB MIBs can be found at ftp://ftp.cisco.com/pub/mibs/v2/v2.tar.gz GLOBALS
$ciscostats->cpu() Returns ios_cpu() or cat_cpu(), whichever is available. $ciscostats->cpu_1min() Returns ios_cpu_1min() or cat_cpu1min(), whichever is available. $ciscostats->cpu_5min() Returns ios_cpu_5min() or cat_cpu5min(), whichever is available. $ciscostats->mem_total() Returns mem_free() + mem_used() $ciscostats->vendor() 'cisco' $ciscostats->os() Tries to parse if device is running IOS or CatOS from description() Available values : pix Cisco PIX asa Cisco ASA fwsm Single-mode FWSM fwsm-admin Admin context of multi-context FWSM fwsm-context Standard context of multi-context FWSM ace-admin Admin context of ACE module ace-context Standard context of ACE module (NB: No OS version detection is available, but will be the same as it's 'ace admin') css Cisco Content Switch css-sca Cisco Content Switch Secure Content Acceleration $ciscostats->os_ver() Tries to parse device operating system version from description() $ciscostats->os_bin() Tries to parse ROMMON version from rom_id() string $ciscostats->ios_cpu() Current CPU usage in percent. 1.3.6.1.4.1.9.2.1.56.0 = "OLD-CISCO-CPU-MIB:avgBusyPer" $ciscostats->ios_cpu_1min() Average CPU Usage in percent over the last minute. 1.3.6.1.4.1.9.2.1.57.0 $ciscostats->ios_cpu_5min() Average CPU Usage in percent over the last 5 minutes. 1.3.6.1.4.1.9.2.1.58.0 $ciscostats->cat_cpu() Current CPU usage in percent. "CISCO-PROCESS-MIB::cpmCPUTotal5sec.9" $ciscostats->cat_cpu_1min() Average CPU Usage in percent over the last minute. "CISCO-PROCESS-MIB::cpmCPUTotal1min.9" $ciscostats->cat_cpu_5min() Average CPU Usage in percent over the last 5 minutes. "CISCO-PROCESS-MIB::cpmCPUTotal5min.9" $ciscostats->mem_free() Main DRAM free of the device in bytes. "CISCO-MEMORY-POOL-MIB::ciscoMemoryPoolFree" $ciscostats->mem_used() Main DRAM used of the device in bytes. "CISCO-MEMORY-POOL-MIB::ciscoMemoryPoolUsed" $ciscostats->mem_total() Main DRAM of the device in bytes. "CISCO-MEMORY-POOL-MIB::ciscoMemoryPoolFree" + "CISCO-MEMORY-POOL-MIB::ciscoMemoryPoolUsed" $ciscostats->flashmem_total() Flash memory of the device in bytes. "CISCO-FLASH-MIB::ciscoFlashDeviceSize" TABLE METHODS
Cisco Memory Pool Table ("ciscoMemoryPoolTable") $ciscostats->cisco_mem_free() The number of bytes from the memory pool that are currently unused on the managed device. ("ciscoMemoryPoolFree") $ciscostats->cisco_mem_used() The number of bytes from the memory pool that are currently in use by applications on the managed device. ("ciscoMemoryPoolUsed") Cisco Flash Device Table ("ciscoFlashDeviceTable") $ciscostats->cisco_flash_size() Total size of the Flash device. For a removable device, the size will be zero if the device has been removed. ("ciscoFlashDeviceSize") perl v5.12.4 2011-09-28 Info::CiscoStats(3pm)
All times are GMT -4. The time now is 05:43 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy