Help for this page

Select Code to Download


  1. 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);
    
  2. 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     '
            };