Schwartzian Transform#!/usr/bin/perl -- use strict; use warnings; my @un = qw[ .1.3.6.1.4.1.26543.2.5.1.3.1.19.0 .1.3.6.1.4.1.26543.2.5.1.3.1.20.0 .1.3.6.1.4.1.26543.2.5.1.3.1.2.0 .1.3.6.1.4.1.26543.2.5.1.3.1.13.0 .1.3.6.1.4.1.26543.2.5.1.3.1.16.0 .1.3.6.1.4.1.26543.2.5.1.3.1.21.0 .1.3.6.1.4.1.26543.2.5.1.3.1.22.0 .1.3.6.1.4.1.26543.2.5.1.3.1.1.0 .1.3.6.1.4.1.26543.2.5.1.3.1.12.0 .1.3.6.1.4.1.26543.2.5.1.3.1.23.0 .1.3.6.1.4.1.26543.2.5.1.3.1.17.0 .1.3.6.1.4.1.26543.2.5.1.3.1.18.0 .1.3.6.1.4.1.26543.2.5.1.3.1.14.0 .1.3.6.1.4.1.26543.2.5.1.3.1.24.0 .1.3.6.1.4.1.26543.2.5.1.3.1.15.0 ]; print $_,$/ for map { $_->[0] } sort { $a->[1] cmp $b->[1] } map { my $f = $_; $f=~ s/(\d+)/sprintf '%06d', $1/ge; [ $_, $f ]; } @un;#keys %hashes __END__ .1.3.6.1.4.1.26543.2.5.1.3.1.1.0 .1.3.6.1.4.1.26543.2.5.1.3.1.2.0 .1.3.6.1.4.1.26543.2.5.1.3.1.12.0 .1.3.6.1.4.1.26543.2.5.1.3.1.13.0 .1.3.6.1.4.1.26543.2.5.1.3.1.14.0 .1.3.6.1.4.1.26543.2.5.1.3.1.15.0 .1.3.6.1.4.1.26543.2.5.1.3.1.16.0 .1.3.6.1.4.1.26543.2.5.1.3.1.17.0 .1.3.6.1.4.1.26543.2.5.1.3.1.18.0 .1.3.6.1.4.1.26543.2.5.1.3.1.19.0 .1.3.6.1.4.1.26543.2.5.1.3.1.20.0 .1.3.6.1.4.1.26543.2.5.1.3.1.21.0 .1.3.6.1.4.1.26543.2.5.1.3.1.22.0 .1.3.6.1.4.1.26543.2.5.1.3.1.23.0 .1.3.6.1.4.1.26543.2.5.1.3.1.24.0
In reply to Re: Net::SNMP question
by Anonymous Monk
in thread Net::SNMP question
by giany
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |