FYI:
#!/usr/bin/perl
use strict;
use warnings;
use Benchmark qw ( :hireswallclock cmpthese timethese );
our $string = qq (.co.uk/Jobs/Company-Sector/C8A6446X4PND86M9WYJ/Trade
+wind/?APath=2.21.0.0.0);
sub karlgoethebier {
our $string;
$string =~ m/.+\/.+\/.+\/.+\/(.+)\/.+/;
return $1;
}
sub athanasius {
our $string;
return (split '/', $string)[4];
}
my $results = timethese (-10, {
'karlgoethebier' => 'karlgoethebier',
'athanasius' => 'athanasius',
});
cmpthese($results);
__END__
Karls-Mac-mini:Desktop karl$ ./tradewind.pl
Benchmark: running athanasius, karlgoethebier for at least 10 CPU seco
+nds...
athanasius: 10.4769 wallclock secs (10.47 usr + 0.00 sys = 10.47 CPU)
+ @ 627362.46/s (n=6568485)
karlgoethebier: 10.4287 wallclock secs (10.42 usr + 0.00 sys = 10.42
+CPU) @ 105188.77/s (n=1096067)
Rate karlgoethebier athanasius
karlgoethebier 105189/s -- -83%
athanasius 627362/s 496% --
Regards, Karl
«The Crux of the Biscuit is the Apostrophe»
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|