>According to Pedro A Reche Gallardo:
> Hi All, I have a long line with no blank characters and I would like to
> insert a return character every 60 characters. Any idea welcome.
> Regards
>
In the Perl Cookbook 1.12 Reformatting Paragraphs.
Problem: long line that would be nice to break up in to lines of words.
Solution: Use the standard Text::Wrap module
use Text::Wrap qw($columns &wrap);
$columns = 20;
wrap( $LEADTAB, $NEXTTAB, @PARA);
Here is how I used it:
$columns = 70;
print wrap( '' , " ", @comments), "\n";
This will make each row maxium 70 characters, with no leading tab,
and each following line 5 spaces.
Rob
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
