Help for this page

Select Code to Download


  1. or download this
    my @data =  map { [$_, split(/\./, (split /\s+/, $_)[1])]} @all_rows;
  2. or download this
    my @sorted = map{$_->[0]}
             sort {$a->[1] cmp $b->[1]}
             map { [$_, inet_aton($_->[1]) ]} @all_rows;
        print Dumper \@sorted;
  3. or download this
    print Dumper \@sorted;