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)
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)
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)
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)
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)
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)
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)
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)
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
LEARN ABOUT DEBIAN
snmp::info::ciscostats
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)