Help for this page

Select Code to Download


  1. or download this
    @sorted_keys = sort { $HoH{$b}{'number'} <=> $HoH{$a}->{'number'} } ke
+ys %HoH;
  2. or download this
    open(FILE,$log);
flock (FILE,3);
@users=<FILE>;
...
foreach $loc (@locations){
print "${$loc}{online} ${$loc}{users} $loc\n";
}
  3. or download this
    use strict;
use warnings;
...
  my $href = $locations{$loc};
  print $href->{'online'}." ".$href->{'usertext'}."$loc\n";
}