Help for this page

Select Code to Download


  1. or download this
    This is perl, v5.10.1 (perl-5.10.1*) built for MSWin32-x86-multi-threa
+d
  2. or download this
    $ perl -MBenchmark -lwe "my$x=q//; print timestr(timeit(eval($ARGV[0])
+,sub{$x .= (q/x/ x 1000);}));" 10_000
32 wallclock secs (20.41 usr +  9.34 sys = 29.75 CPU) @ 336.13/s (n=10
+000)
  3. or download this
    >perl -v

...
>perl -MBenchmark -lwe "my$x=q//; print timestr(timeit(eval($ARGV[0]),
+sub{$x .= (q/x/ x 100);}));" 10_000
33 wallclock secs (20.53 usr +  9.47 sys = 30.00 CPU) @ 333.32/s (n=10
+000)