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 :
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj3A6qJUuV7ljZaFXIEnVrqBSi1ENKR5rNmOQ1s1YDeF4fIpY8HjWHup78lS2ip1zeYFTaLV8-9e__rSQRdNvanv_gPhepZNEm_Ijsl_AbjYUqniQ-iVEzu6zS2DQuWFIlTN4cbX8vDOKr0/s400/out.png)
No comments:
Post a Comment