Help for this page

Select Code to Download


  1. or download this
    my @sorted=map substr($_,4),
      sort map pack(N => (stat)[9]) . $_, @files;
  2. or download this
    my $len=length pack I => 1;
my @sorted=map substr($_,$len),
      sort map pack(I => (stat)[9]) . $_, @files;
  3. or download this
    #!/usr/bin/perl

...
cmpthese -30, { map { $_ => "$_(\@files)" } @sub };

__END__
  4. or download this
              Rate sprf2 sprf1 spack
sprf2 756078/s    --   -7%  -24%
sprf1 811970/s    7%    --  -18%
spack 991485/s   31%   22%    --
  5. or download this
           Rate sprf2 sprf1 spack
sprf2 319/s    --   -6%  -21%
sprf1 340/s    6%    --  -16%
spack 403/s   26%   19%    --