Beefy Boxes and Bandwidth Generously Provided by pair Networks RobOMonk
Just another Perl shrine
 
PerlMonks  

Re^3: file name parsing to get the original file name (regex performance)

by Aristotle (Chancellor)
on Aug 24, 2003 at 05:43 UTC ( #286147=note: print w/ replies, xml ) Need Help??


in reply to Re: Re: file name parsing to get the original file name
in thread file name parsing to get the original file name

Enter sexeger.

Add this to Abigail's benchmark.

aristotle => 'foreach my $f (@files) { my ($fn) = reverse($f) =~ m!^(.*?)/?!s; $fn = reverse $fn; }',

              Rate     markm   abigail    markm2 aristotle
markm      39625/s        --      -56%      -58%      -61%
abigail    89688/s      126%        --       -4%      -11%
markm2     93877/s      137%        5%        --       -7%
aristotle 100885/s      155%       12%        7%        --
Reversing the string (twice!) may be costly, but the simplicity of the regex offsets this. Note that [^/]+ would have been much slower. .*? has been treated to special optimizations.

Makeshifts last the longest.


Comment on Re^3: file name parsing to get the original file name (regex performance)
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://286147]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (5)
As of 2014-04-20 09:30 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (485 votes), past polls