Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
# foo.pl - This is just a test
...

my @order = sort_len( $foo, $bar );
print @order;
  2. or download this
    my $sf = make_sorter( name => 'sort_len', code => sub { length }, ST =
+> 1 );
die "No sort made\n" if (! $sf);