Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight

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.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://526979]
[atcroft]: .oO(Then there is the effect if a site changes their timezone, such as when the International Date Line was moved by the purchase of Alaska by the US from Russia in 1867, or several places (I cannot recall off-hand) that moved from one side of the Date
[atcroft]: Line to the other recently....)
[atcroft]: .oO(Then again, you also have to be careful if you had it to the database, and be aware of any assumptions it makes (such as SQLite assuming Gregorian calendar and a day of exactly 86400 seconds)...)

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (4)
As of 2017-04-29 04:49 GMT
Find Nodes?
    Voting Booth?
    I'm a fool:

    Results (531 votes). Check out past polls.