Help for this page

Select Code to Download


  1. or download this
    $VAR1 = '@sorted = sort 
                                 {
    ...
                                 $result->{$b}->{year} <=> $result->{$a}->
    +{year} 
                                 || lc $result->{$a}->{species} cmp lc $re
    +sult->{$b}->{species}
                               } keys %{$result};';
    
  2. or download this
        my $code = qq(
        \@sorted = sort 
    ...
        warn "code is $code";
        @sorted = eval{ $code } ;
        warn Dumper [@sorted];