Help for this page

Select Code to Download


  1. or download this
    for my $movie (sort { my_article_sort($a->{title},$b->{title}) values 
    +%movies} { ... }
    for my $alpha (sort { my_article_sort($a,$b) } keys %alpha_movies) { .
    +.. }
    ...
    for my $color (sort { my_article_sort($a->{name},$b->{name}) values %c
    +olors} { ... }
    
    my @files = (map("$data_dir$_",grep(/txt$/,sort { my_article_sort($a,$
    +b) } readdir($directory))));
    
  2. or download this
    package Base::Sorts;
    use strict;
    ...
        die "A sort type was not selected.";
      }
    }