Help for this page

Select Code to Download


  1. or download this
    my %oids = (
        "ifName" => {
    ...
             5 => "Gi2/0/1",
        },
    );
    
  2. or download this
    - or:
    my %oids = (
    ...
             5 => "Gi0/0",
        },
    );
    
  3. or download this
    my (@a, @b);
    my @port_ifIndices = sort {
    ...
    foreach my $ifIndex (@port_ifIndices) {
            print ("$ifIndex: $oids{ifName}{$ifIndex}\n");
    }
    
  4. or download this
    2: Gi1/0/0
    1: Gi1/0/1
    3: Gi1/1/1
    4: Gi2/0/0
    5: Gi2/0/1