Help for this page

Select Code to Download


  1. or download this
    
    foreach $element (@dports) {
    ...
      print "$key\n" x $count_hash{$key} if $count_hash{$key};
    }
    
  2. or download this
          my @sorted = sort {$b <=> $a} @dports;