Re: Find odd/even elements of array

[AnomalousMonk]

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