Select Code to Download

Select or download this

my %oids = map { $1 => $2 if (m/^: (.+?) VALUE: (.+)/) }
    do { my @a = split /OID/; shift @a; @a };

use Data::Dumper qw(Dumper);
print Dumper(\%oids);

Select or download this

$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.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     '
        };