To complete the stats (Extremely usefull :) )
use strict;
use warnings;
use Benchmark qw(cmpthese);
my $str = <<STR;
just wondering how i can have perl display part of my long memo. basi
+cally i
want the first lets say 255 charachters of the paragraph. im really n
+ew to
perl so i don't know how i would come about this?...[ read more ]
STR
my $maxlen = 160;
cmpthese
(
-1,
{
'graff' => \&graff,
'duff' => \&duff,
'jbrug' => \&jbrug,
'jbrug2' => \&jbrug2,
}
);
sub graff {
my $txt = substr $str, 0, $maxlen;
}
sub duff {
my $txt = $str;
$txt =~ s/(.{1,$maxlen})\b.*/$1.../;
}
sub jbrug {
my $txt = $str;
$txt =~ m/.{$maxlen}/gs;
}
sub jbrug2 {
my @a = split("",$str);
my $txt="";
for (my $i=0; $i<$maxlen; $i++) {
$txt .= $a[$i];
}
}
Rate jbrug2 duff jbrug graff
jbrug2 3596/s -- -98% -99% -100%
duff 153325/s 4164% -- -78% -94%
jbrug 689852/s 19086% 350% -- -73%
graff 2525239/s 70130% 1547% 266% --
"We all agree on the necessity of compromise. We just can't agree on when it's necessary to compromise." - Larry Wall.
-
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.
|