Help for this page

Select Code to Download


  1. or download this
    package TGrep;
use strict;
...
}

1;
  2. or download this
    #! perl -slw
use strict;
...
C:\test>t-tgrep -N=1e5
Took 3.830074787 seconds
20000
  3. or download this
    $t=time; 
my @a = grep{ $_%5 == 0 } 1 .. 1e6; 
print time-$t;;
0.18144702911377