Re: Using split() to divide a string by length

Another trick that works is to capture the split characters, which places them also in @fields and makes pos advance beyond them. Since all but probably the last group match, the normal split results mostly don't contain anything, so we need to filter out false elements with grep:

my $string = join '', a..z;

my @fields = grep {$_} split /(.{3})/, $string;

print "@fields\n";

__END__
abc def ghi jkl mno pqr stu vwx yz
[download]

After Compline,
Zaxo

Comment on Re: Using split() to divide a string by length Download Code

Replies are listed 'Best First'.
Re^2: Using split() to divide a string by length by japhy (Canon) on Apr 13, 2006 at 19:51 UTC
Your grep should be `grep { defined }`. Jeff `japhy` Pinyan, P.L., P.M., P.O.D, X.S.: Perl, regex, and `perl` hacker How can we ever be the sold short or the cheated, we who for every service have long ago been overpaid? ~~ Meister Eckhart	[reply] [d/l]
Re^3: Using split() to divide a string by length by Zaxo (Archbishop) on Apr 13, 2006 at 20:58 UTC
Yep, I tried with defined first because that's the way I thought it worked, too. With that, the result of mine is, `abc def ghi jkl mno pqr stu vwx yz` [download] Note the extra spaces, indicating that there are defined empty strings instead of undefs in those positions. Update: Good idea, ikegami++. After Compline, Zaxo	[reply] [d/l]
Re^4: Using split() to divide a string by length by ikegami (Patriarch) on Apr 13, 2006 at 21:06 UTC
Then `grep length, ...` is needed.	[reply] [d/l]