Keep It Simple, Stupid | |
PerlMonks |
comment on |
( [id://3333]=superdoc: print w/replies, xml ) | Need Help?? |
@times = (5, 10, 20, 25, 30, 40, 45, 50, 55, 65, 75, 80, 90);
@times1 = (); @times2 = (); $sw = 1; map {if ($sw == 1) {push (@times1,$_);$sw = 0;} else {$sw = 1;}} @times; $sw = 1; map {if ($sw == 0) {push (@times2,$_);$sw = 1;} else {$sw = 0;}} @times; Don't put off till tomorrow, what you can do today. In reply to Re: array splitting
by l.frankline
|
|