Re^3: Counting the number of items returned by split without using a named array

C:\test>p1
our $s = join ' ', 'aa'..'zz';;
cmpthese -3, { 
    split => q[ $_=$s; my $n = @{[ split ]}; ], 
    regex => q[ $_=$s; my $n = () = /\S+/g;  ] 
};;
        Rate regex split
regex  546/s    --  -50%
split 1102/s  102%    --
[download]

Assuming I didn't goof on the benchmark split appears to be quicker.

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

Lingua non convalesco, consenesco et abolesco. -- Rule 1 has a caveat! -- Who broke the cabal?

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

Comment on Re^3: Counting the number of items returned by split without using a named array Download Code

Replies are listed 'Best First'.
Re^4: Counting the number of items returned by split without using a named array by Anonymous Monk on May 03, 2006 at 15:16 UTC
Strange perhaps it depends on the length of the input string? My attempt shows a different result You seem to be under windows - so just for comparison: `$ cat a.pl; echo '-----------' ;echo;./a.pl #!/usr/local/bin/perl -w use Benchmark qw(:all) ; our $s = join ' ', 'aa'..'zz';; cmpthese( -3, { split => q[ $_=$s; my $n = @{[ split ]}; ], regex => q[ $_=$s; my $n = () = /\S+/g; ] }); ----------- Rate regex split regex 981/s -- -53% split 2098/s 114% --` [download] Hm, now where's the big diff to the other Bench? I.	[reply] [d/l]
Re^5: Counting the number of items returned by split without using a named array by BrowserUk (Patriarch) on May 03, 2006 at 16:34 UTC
Hm, now where's the big diff to the other Bench? Try switching warnings on in your first benchmark. It will probably explain the difference :) Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. Lingua non convalesco, consenesco et abolesco. -- Rule 1 has a caveat! -- Who broke the cabal? "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice.	[reply] [d/l]
Re^6: Counting the number of items returned by split without using a named array by Anonymous Monk on May 03, 2006 at 17:32 UTC
Ok, I see :) That could explain it g I.	[reply]
Re^5: Counting the number of items returned by split without using a named array by Anonymous Monk on May 03, 2006 at 15:20 UTC
Argh... Link went wrong :( meant to link to the other benchmark above: http://www.perlmonks.org/?node_id=547169	[reply]