Help for this page

Select Code to Download

Select or download this

sub sortFiles{
    my ($field, @data)=@_;
    my $sortFunction={
...
    }   
    return sort $sortFunction{$field} @data;
}