Help for this page

Select Code to Download


  1. or download this
    my (@even, @odd);
push @{ $_ % 2 ? \@odd : \@even }, $_ for split /,/, $text;
  2. or download this
    my (@even, @odd);

my $i = 0;
push @{ $i++ % 2 ? \@odd : \@even }, $_ for split /,/, $text;
  3. or download this
    my @field = split /,/, $text;

my (@even, @odd) = @field[
    map { $_, $_ + @field / 2 } 0 .. ( @field / 2 ) - 1
];