(jeffa) Re: Wordwrap text

You should rely on HTML to do this - just specify the width of the column, preferably with a percentage:

<td width="25%">big long sentance . . .</td>
[download]

UPDATE:
The following _hack_ will work, but it's nasty:

use constant POS => 10;

my $str = 'big old long sentance blah blah blah';
my $len;
foreach (split(/\s/,$str)) {
    $len += length;
    print;
    ($len % POS) ? print ' ' : print '<br>';
}
[download]

UPDATED UPDATE:
Thanks nardo - that's what i get for changing my code from the testing board to the posting board (this cleverness thing just isn't working out for me today). Besides, a ternary operator in void context is evil. . . .

#inside foreach
    $len += length;
    print;
    if ($len > POS) {        # thanks nlafferty
         print '<br>';
         $len = 0;
    }
    else {
        print ' ';
    }
[download]

Jeff

R-R-R--R-R-R--R-R-R--R-R-R--R-R-R--
L-L--L-L--L-L--L-L--L-L--L-L--L-L--

Comment on (jeffa) Re: Wordwrap text Select or Download Code

Replies are listed 'Best First'.
Re: (jeffa) Re: Wordwrap text by nardo (Friar) on Jul 27, 2001 at 00:39 UTC
That only wraps a line if it ends at a multiple of the boundary, it doesn't prevent a word from going past it (you need to check if the current word is going to go past the boundary before printing it). On a $str of 'George Washington was the first president of these United States' it won't insert a <br> despite there being significantly more than 10 chars in it. This loop should do it: `foreach (split(/\s/, $str)) { if($len + 1 + length > POS && $len) { $len = 0; print "\n"; } elsif($len) { print ' '; $len++; } print; $len += length; }` [download]	[reply] [d/l]
Re: Re: (jeffa) Re: Wordwrap text by bastard (Hermit) on Jul 27, 2001 at 02:13 UTC
This should also work: `#example 1 $content =~ s/(.{1,$width}) /$1<BR>/g; print $content;` [download] or `#example 2 $content =~ s/(.{1,$width}) \|([^ ]{$width})/$1$2<BR>/g; print $content;` [download] The $width represents the largest number of characters each line should have. The first example does not break single words longer than the variable $width specifies. The second will.	[reply] [d/l] [select]
Re: (jeffa) Re: Wordwrap text by nlafferty (Scribe) on Jul 27, 2001 at 01:13 UTC
So i want `use constant POS => 10; my $str = '$comment'; my $len; foreach (split(/\s/,$str)) { $len += length; print; if ($len > 10) { print '<br>'; $len = 0; } else { print ' '; }` [download] ? Where does the `POS` come in?	[reply] [d/l] [select]