Re: 8 in a line...

Some regex approaches:

perl -wMstrict -e
"my $str = 'abcdabcdabcdabcdabcdabcd';
 print join qq(\n), $str =~ /.{8}/g, qq(\n);
 my $alphabet = qr{ abcd }xms;
 print join qq(\n), $str =~ /$alphabet$alphabet/g, qq(\n);
 print join qq(\n), $str =~ /$alphabet{2}/g, qq(\n);
"
abcdabcd
abcdabcd
abcdabcd

abcdabcd
abcdabcd
abcdabcd

abcdabcd
abcdabcd
abcdabcd
[download]

Comment on Re: 8 in a line... Download Code

Replies are listed 'Best First'.
Re^2: 8 in a line... by moritz (Cardinal) on Jun 20, 2008 at 10:52 UTC
`print join qq(\n), $str =~ /.{8}/g, qq(\n);` In the general case you need an `/s` modifier in that regex (but it's hard to tell from heidis post if you need in this specific case).	[reply] [d/l] [select]