Help for this page

Select Code to Download


  1. or download this
    use List::Util qw(sum);

...

my $sum = sum(@count);
print "$_\t=>\t$count[$_]\t(", sprintf('%.2f', ($count[$_]/$sum)*100),
+ "% TTL)\n" for 1 .. 20;
  2. or download this
    1    =>    300463    (7.53% TTL)
2    =>    300337    (7.52% TTL)
...
18    =>    24485    (0.61% TTL)
19    =>    14228    (0.36% TTL)
20    =>    7685    (0.19% TTL)