I'm sure you would like to preserve OIDs as well. Thus I think a perl hash would be a better data structure for the task, i.e. assuming your SNMP string is in $_
my %oids = map { $1 => $2 if (m/^: (.+?) VALUE: (.+)/) }
do { my @a = split /OID/; shift @a; @a };
use Data::Dumper qw(Dumper);
print Dumper(\%oids);
The result looks as following:
$VAR1 = {
'1.3.6.1.4.1.954.1.1.1.1.6.7557342 .iso.org.dod.internet.pri
+vate.enterprises.954.1.1.1.1.6.7557342' => 'V ',
'1.3.6.1.4.1.954.1.1.1.1.5.7557342 .iso.org.dod.internet.pri
+vate.enterprises.954.1.1.1.1.5.7557342' => '3030303036 ',
'1.3.6.1.4.1.954.1.1.1.1.14.7557342 .iso.org.dod.internet.pr
+ivate.enterprises.954.1.1.1.1.14.7557342' => 'TEST_APPLICATION ',
'1.3.6.1.4.1.954.1.1.1.1.16.7557342 .iso.org.dod.internet.pr
+ivate.enterprises.954.1.1.1.1.16.7557342' => 'tcenshpat1',
'1.3.6.1.4.1.954.1.1.1.1.3.7557342 .iso.org.dod.internet.pri
+vate.enterprises.954.1.1.1.1.3.7557342' => 'tcenshpat1 ',
'1.3.6.1.4.1.954.1.1.1.1.13.7557342 .iso.org.dod.internet.pr
+ivate.enterprises.954.1.1.1.1.13.7557342' => 'TEST_GROUP ',
'1.3.6.1.4.1.954.1.1.1.1.4.7557342 .iso.org.dod.internet.pri
+vate.enterprises.954.1.1.1.1.4.7557342' => 'TEST_FILE_NAME
+ ',
'1.3.6.1.4.1.954.1.1.1.1.7.7557342 .iso.org.dod.internet.pri
+vate.enterprises.954.1.1.1.1.7.7557342' => 'Not_Noticed ',
'1.3.6.1.4.1.954.1.1.1.1.9.7557342 .iso.org.dod.internet.pri
+vate.enterprises.954.1.1.1.1.9.7557342' => ' ',
'1.3.6.1.4.1.954.1.1.1.1.8.7557342 .iso.org.dod.internet.pri
+vate.enterprises.954.1.1.1.1.8.7557342' => '3230303630393130323335353
+132 ',
'1.3.6.1.4.1.954.1.1.1.1.11.7557342 .iso.org.dod.internet.pr
+ivate.enterprises.954.1.1.1.1.11.7557342' => 'CTMERRJOBNAMECTMERRTest
+ job for unicenter ',
'1.3.6.1.4.1.954.1.1.1.1.1.7557342 .iso.org.dod.internet.pri
+vate.enterprises.954.1.1.1.1.1.7557342' => 'I ',
'1.3.6.1.4.1.954.1.1.1.1.10.7557342 .iso.org.dod.internet.pr
+ivate.enterprises.954.1.1.1.1.10.7557342' => ' ',
'1.3.6.1.4.1.954.1.1.1.1.12.7557342 .iso.org.dod.internet.pr
+ivate.enterprises.954.1.1.1.1.12.7557342' => ' ',
'1.3.6.1.4.1.954.1.1.1.1.15.7557342 .iso.org.dod.internet.pr
+ivate.enterprises.954.1.1.1.1.15.7557342' => 'TEST_JOB_NAME
+ ',
'1.3.6.1.4.1.954.1.1.1.1.2.7557342 .iso.org.dod.internet.pri
+vate.enterprises.954.1.1.1.1.2.7557342' => '7557342 '
};
|