Re: Re:{4} how do I line-wrap while copying to stdout?

Just to make a little more trouble -- what about:

local $,=$\;
[download]

and either

print /(.{1,80})/g
[download]

print grep /./, split /(.{1,80})/
[download]

Comment on Re: Re:{4} how do I line-wrap while copying to stdout? Select or Download Code

Replies are listed 'Best First'.
Re: Re: Re:{4} how do I line-wrap while copying to stdout? by merlyn (Sage) on Apr 24, 2001 at 00:43 UTC
`print grep $_, split /(.{1,80})/` [download] I don't like that one. It throws away any line that comes out as "0". -- Randal L. Schwartz, Perl hacker	[reply] [d/l]
Re: Re: Re: Re:{4} how do I line-wrap while copying to stdout? by petral (Curate) on Apr 24, 2001 at 01:04 UTC
Right, changed it back to "/./". p	[reply]
Re: Re: Re: Re: Re:{4} how do I line-wrap while copying to stdout? by merlyn (Sage) on Apr 24, 2001 at 01:52 UTC
But since you aren't using /s, you're going to be doing bad things to strings that have newlines. The other solutions are much better. -- Randal L. Schwartz, Perl hacker	[reply]