Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked

Re^2: split every other value

by beable (Friar)
on Aug 07, 2004 at 00:18 UTC ( #380782=note: print w/replies, xml ) Need Help??

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

That won't work for text, however, which is what the problem supposedly really is. jcpunk wants to split on odd/even array indexes, not on the odd/evenness of the array element.

Update: Oh good, you have a second version which divides the stuff up on array index.

Replies are listed 'Best First'.
Re^3: split every other value
by Aristotle (Chancellor) on Aug 07, 2004 at 00:23 UTC

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

    Makeshifts last the longest.

      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

        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.

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://380782]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (2)
As of 2023-03-25 14:46 GMT
Find Nodes?
    Voting Booth?
    Which type of climate do you prefer to live in?

    Results (63 votes). Check out past polls.