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 :

No comments:
Post a Comment