[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

Re: [MacPerl] Bug report on 5.14b1 (fwd)



According to Chris Nandor:
> 
> #!perl
> use Benchmark;
> $eq = q{if($^O eq 'MacOS') {$x = 'hey1'}};
> $re = q{if($^O =~ /mac/i ) {$y = 'hey2'}};
> timethese(1000000,{eq=>$eq,re=>$re});
> __END__
> 
> Benchmark: timing 1000000 iterations of eq, re...
>         eq: 10 secs (10.92 usr  0.00 sys = 10.92 cpu)
>         re: 19 secs (19.35 usr  0.00 sys = 19.35 cpu)

Ah!  :-)  Thanks Chris!  :-)

***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch