Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re^2: Display shortened paragraph

by jbrugger (Parson)
on Feb 01, 2006 at 06:20 UTC ( #526979=note: print w/ replies, xml ) Need Help??


in reply to Re: Display shortened paragraph
in thread Display shortened paragraph

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.


Comment on Re^2: Display shortened paragraph
Select or Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (6)
As of 2014-09-21 10:54 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (168 votes), past polls