Re^2: printing 20 characters in a line.

by ig (Vicar)

on Nov 14, 2008 at 09:24 UTC ( [id://723597]=note: print w/replies, xml )

Need Help??

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]

Comment on Re^2: printing 20 characters in a line. Select or Download Code

Domain Nodelet^?

Node Status^?

node history
Node Type: note [id://723597]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others learning in the Monastery: (1)

As of 2024-04-25 00:29 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

No recent polls found