Re: printing 20 characters in a line.

If you don't mind losing $str:

$str=~s/((?:\d+ ){20})/$1\n/g;

print OUT "$str\n";
[download]

GreetZ!,

ChOas
print "profeth still\n" if /bird|devil/;

Comment on Re: printing 20 characters in a line. Download Code

Replies are listed 'Best First'.
Re^2: printing 20 characters in a line. by ig (Vicar) on Nov 14, 2008 at 09:24 UTC
or, to avoid modifying $str and be rid of trailing spaces `my $tmp = $str; $tmp =~ s/((?:\s\d+){20})/$1\n/g; print OUT "$tmp\n";` [download] update: get rid of leading spaces `my $tmp = $str; $tmp =~ s/\s((?:\s*\d+){20})/$1\n/g; print OUT "$tmp\n";` [download]	[reply] [d/l] [select]