Help for this page

Select Code to Download


  1. or download this
      OUTER: foreach my $record (@in) {
    foreach my $field (keys %{$where}) {
...
    }
    push @out, $record;
  }
  2. or download this
    $ time perl -e '  my @out = ();

...
real    0m4.260s
user    0m4.227s
sys     0m0.015s
  3. or download this
    $ time perl -e '  my @out = ();

...
real    0m2.761s
user    0m2.745s
sys     0m0.000s
  4. or download this
    
  OUTER: for my $record (0..10000000) {
...
real    0m0.854s
user    0m0.841s
sys     0m0.000s