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

Read the code again. That's exactly what it does.

Makeshifts last the longest.

Replies are listed 'Best First'.
Re^4: split every other value
by beable (Friar) on Aug 07, 2004 at 00:30 UTC
    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]
[reply]
[d/l]

      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]
        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]

In Section Seekers of Perl Wisdom