Help for this page

Select Code to Download


  1. or download this
    sub filter {
      my $where = shift;
    ...
    
      return @out;
    }
    
  2. or download this
    sub filter {
      my $where = shift;
    ...
    
      return @out;
    }
    
  3. or download this
    $ cat foreach_inner
    #!/usr/bin/perl
    ...
        my $pointless = "$foo.$bar";
      }
    }
    
  4. or download this
    $ time ./foreach_inner
    
    real    0m8.975s
    user    0m8.954s
    sys    0m0.013s
    
  5. or download this
    $ cat foreach_outer
    #!/usr/bin/perl
    ...
        my $pointless = "$foo.$bar";
      }
    }
    
  6. or download this
    $ time ./foreach_outer
    
    real    0m14.106s
    user    0m14.092s
    sys    0m0.003s