Re: Split on every second character

Or still using split, you can just drop every second element from the result list:

$ perl -le '@l = grep {$i++ % 2} split /(..)/, "010203040506"; print j
+oin "|", @l'
[download]

But the solutions provided by other monks are definitely nicer.

Comment on Re: Split on every second character Download Code

Replies are listed 'Best First'.
Re^2: Split on every second character by AnomalousMonk (Archbishop) on Feb 13, 2010 at 20:26 UTC
I agree that some variation of an approach using `m/..?/g` or `unpack()` is better, but a more concise `split()` solution would be: `>perl -wMstrict -le "print for grep length, split /(..)/, '0001020304101112';" 00 01 02 03 04 10 11 12` [download]	[reply] [d/l] [select]