Help for this page

Select Code to Download


  1. or download this
    sub GetReferersBar{
    my ($key,$value,%thishash,$bartext);
...
    $bartext .= "</TABLE>" ;
    return $bartext;
}
  2. or download this
    sub printcells {
    my $href = shift;
...

    return $bartext;
}
  3. or download this
    foreach my $key (map  { $_->[0] }
                 sort { $b->[1] <=> $a->[1] }
                 map  { [ $_, $thishash->{$_} ] }
                 keys %$thishash;
  4. or download this
    sub ST_by_reverse_numeric {
    local ($a, $b);
    $b->[1] <=> $a->[1]
}