use strict; use warnings; my %lookup = ( 'SNMPv2-SMI::enterprises.54321.1.1.1' => 'number of udp + connections'); # data can be a filehandle with the output generated # by File::Temp while (my $line = <DATA>) { chomp $line; my ($oid, $cnt) = $line =~ m{ \A (.*) \s = \s INTEGER: \s ([+- +]?\d+) \z}xms; $oid = $lookup{$oid} if defined $lookup{$oid}; print "$oid, $cnt\n"; } __DATA__ SNMPv2-SMI::enterprises.54321.1.1.1 = INTEGER: 0 SNMPv2-SMI::enterprises.54321.1.1.2 = INTEGER: 1 SNMPv2-SMI::enterprises.54321.1.1.3 = INTEGER: 1 SNMPv2-SMI::enterprises.54321.1.1.5 = INTEGER: 1 SNMPv2-SMI::enterprises.54321.1.1.8 = INTEGER: -1 SNMPv2-SMI::enterprises.54321.1.1.9 = INTEGER: 1 SNMPv2-SMI::enterprises.54321.1.1.12 = INTEGER: 0 SNMPv2-SMI::enterprises.54321.1.1.13 = INTEGER: 0
In reply to Re: Formating snmpwalk output
by lima1
in thread Formating snmpwalk output
by just dave
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |