Help for this page

Select Code to Download


  1. or download this
    foreach $jrow (eval "sort { $sort_str } keys %\$ref_spv") {...}
    
  2. or download this
    my $sorter = Sort::Key::multikeysorter(sub { @{$ref_spv->{$_}}{qw(Symb
    +ol Sel120 Sel119)} },
                                           qw(String String -Int))
    
    foreach $jrow ($sorter->(keys %$ref_spv)) { ... }