jbrugger has asked for the wisdom of the Perl Monks concerning the following question:
Hi all
I've got the following issue:sub breakLine() { my ($string, $length, $marker) = @_; my $tempstring = ""; my $afterstring = ""; if ( length($string) > $length && $length > 0 ) { $length -= length($marker); if ($length <= length($marker)) { $marker = ""; $tempstring = substr( $string, 0, $length ); } else { $afterstring = substr( $string, $length, lengt +h($string)); if (length($afterstring) > $length ) { $afters +tring = &breakLine($afterstring,$length+1, $marker);} $tempstring = substr( $string, 0, $length ) . +$marker . " " . $afterstring; } $string = $tempstring; } $string; } $tmpl->param( useremail => &breakLine($user->{email},$length,"-"), ); print $tmpl->output;
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: breaking words in a table.
by TedPride (Priest) on Feb 28, 2005 at 09:26 UTC | |
|
Re: breaking words in a table.
by TedPride (Priest) on Feb 28, 2005 at 10:35 UTC | |
by ww (Archbishop) on Feb 28, 2005 at 16:49 UTC | |
by jbrugger (Parson) on Feb 28, 2005 at 18:04 UTC | |
|
Re: breaking words in a table.
by perl_lover (Chaplain) on Feb 28, 2005 at 09:30 UTC | |
by jbrugger (Parson) on Feb 28, 2005 at 09:40 UTC | |
by dorward (Curate) on Feb 28, 2005 at 10:05 UTC |