Felix Geerinckx wrote:
> on Mon, 26 Aug 2002 19:01:27 GMT, David wrote:
>
>> Felix Geerinckx wrote:
>
>>> s/.*\[uuid (.*)\]/$1/;
>>
>> this might be a bit faster:
>>
>> /(\S+).$/
>
> If you claim something is faster, prove it ;-)
> (But remember, the OP wanted the result in $_).
>
i only suggest that it might be faster. :-)
i won't go into too much detail to try to prove that. i only ran the
following:
#!/usr/bin/perl -w
use strict;
use Benchmark;
my @t = timethese(999999,{'search_assign' =>
'$_ = \'vws [uuid 1234.abcd]\';($_) = /(\S+).$/;',
'search_replace' =>
'$_ = \'vws [uuid 1234.abcd]\';s/.*\[uuid (.*)\]/$1/;'});
gives:
Benchmark: timing 999999 iterations of search_assign, search_replace...
search_assign: 21 wallclock secs (10.22 usr + 0.00 sys = 10.22 CPU) @
97847.26/s (n=999999)
search_replace: 34 wallclock secs (16.49 usr + 0.02 sys = 16.51 CPU) @
60569.29/s (n=999999)
search_assign: ($_) = /(\S+).$/;
search_replace: s/.*\[uuid (.*)\]/$1/;
david
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
