in reply to Find odd/even elements of array
A pure-database approach seems best, but here's an array manipulation approach that's almost straight from the List::MoreUtils docs:
>perl -wMstrict -le "use List::MoreUtils qw(part); ;; my @si = qw(001 John 002 Mary 003 Tom); ;; my $i = 0; my @parts = part { $i++ % 2 } @si; print qq{even index elements: @{ $parts[0] }}; print qq{ odd index elements: @{ $parts[1] }}; " even index elements: 001 002 003 odd index elements: John Mary Tom
|
---|
In Section
Seekers of Perl Wisdom