Hmm.. I forgot which web page I referred to, but this is a 2-liner code to extract the odd-th numbered items, or even-th numbered items in an array. :) use Data::Dumper;$Data::Dumper::Indent = 3; @array = ( 1, 2, 3, 4, 5, 6, 7 ); $flag = 0; @oddth = grep {$flag ^= 1} @array; print Dumper(\@oddth); print "\n"; $flag = 1; @eventh = grep {$flag ^= 1} @array; print Dumper(\@eventh); print "\n"; output :
Previously known as jcrys26's kdb. A learning dump and sharing place.