Help for this page

Select Code to Download


  1. or download this
    # Doesn't work
    sort \&numeric @list;
    ...
    # Works
    my $sorter = \&numeric; 
    sort $sorter @list;
    
  2. or download this
    sub sort_hashkey($$) {
        my ($a,$b) = @_;
    ...
    }
    
    my @sorted = sort_hashkey @list;
    
  3. or download this
    my $sorter = sorthash_numeric('foo');
    my @sorted = sort $sorter @list;
    
  4. or download this
    my @sorted = sort sorthash_alpha('foo') @list;