in reply to 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--

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]
      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]

In Section Seekers of Perl Wisdom