Select Code to Download

C:\>perl -v
This is perl, v5.8.4 built for MSWin32-x86-multi-thread

$ perl -v

This is perl, v5.6.1 built for i386-linux

  # sort criteria eval-ed: wacky results
  my $sortCriteria = sub { $hr->{$b}->{"number"} <=> $hr->{$a}->{"numb
+er"};};
...
  foreach my $sortedKey(@sortedKeys){
    print $hr->{$sortedKey}->{"number"} . " " . $hr->{$sortedKey}->{'n
+ame'} . "\n";
  }

  # sort criteria eval-ed: wacky results
  my $sortCriteria = '$hr->{$b}->{"number"} <=> $hr->{$a}->{"number"};
+';
...
  sub x {
    eval shift;
  }