Help for this page

Select Code to Download

Select or download this

#!/usr/bin/env perl

...
    print qq{$key\t}, $VAR1->{$key}{network}, qq{\t\t},
            $VAR1->{$key}{VLAN}, qq{\n};
}

Select or download this

$ pm_sort_hash_array.pl
Key    Network                VLAN
32     10.182.12.0/25        2121
127    10.182.48.0/24        3509
90     10.183.243.128/25     3494