Help for this page

Select Code to Download


  1. or download this
    my @sortedIdx=
            map { unpack "N", substr($_,-4) }
    ...
                $key =~ s[(\d+)][ '0' . pack "N", $1 ]ge;
                $key . pack "CN", 0, $_
            } keys %{$oids{ifName}};
    
  2. or download this
    my @keys= ( keys %{$oids{ifName}} )[
            map { unpack "N", substr($_,-4) }
    ...
                $key . pack "CN", 0, $_-1
            } 1 .. keys %{$oids{ifName}}
    ];