Re^4: split every other value

in reply to Re^3: split every other value
in thread split every other value

Err, no. When I replied to your post, it only dealt with numbers as elements. You've since changed your post by adding the second program. Here is a demonstration that the first version of your post does not work for text:

#!/usr/bin/perl

#my $text = '1,2,3,4,5,6,7,8';
my $text = 'a,b,c,d,e,f,g,h,i,j';

my (@even, @odd);
push @{ $_ % 2 ? \@odd : \@even }, $_ for split /,/, $text;

print "odd = @odd, even = @even\n";

__END__

output (first $text):
odd = 1 3 5 7, even = 2 4 6 8

output (second $text):
odd = , even = a b c d e f g h i j
[download]

Comment on Re^4: split every other value Download Code

Replies are listed 'Best First'.
Re^5: split every other value by Aristotle (Chancellor) on Aug 07, 2004 at 00:34 UTC
Actually, that is the one I added later. The one with the counter was there from the beginning — in fact, the first solution I wrote was the one with the slice (I added the foreach-push one before posting because the slice is too obscure). Makeshifts last the longest.	[reply]
Re^6: split every other value by ysth (Canon) on Aug 07, 2004 at 00:48 UTC
I added the foreach-push one before posting because the slice is probably too obscure for most people Assuming you are talking about: `my (@even, @odd) = @field[ map { $_, $_ + @field / 2 } 0 .. ( @field / 2 ) - 1 ];` [download] it's not just obscure, it doesn't work. @even will get assigned all the fields. You need something like: `my (@even, @odd); (@even[0..(@field/2)-1], @odd[0..(@field/2)-1]) =` [download]	[reply] [d/l] [select]
Re^7: split every other value by Aristotle (Chancellor) on Aug 07, 2004 at 01:05 UTC
Yes, that's the one I was talking about, and yes, you are right. Trying to correct along another line that leads me to another nice solution: `my @field = split /,/, $text; my @even = @field[ map $_ * 2, 0 .. ( @field / 2 ) - 1 ]; my @odd = @field[ map $_ * 2 + 1, 0 .. ( @field / 2 ) - 1 ];` [download] (Despite the two maps, it only iterates once — a half-iteration in each of them.) Makeshifts last the longest.	[reply] [d/l]

In Section Seekers of Perl Wisdom