Re: arrays help

I tried this. It'll do what you want:

#!/usr/bin/perl

use strict;

my @array = (
'0001.tif ', "\n",
'0002.tif ', "\n",
'0003.tif ', "\n",
'0004.tif ', "\n",
'0005.tif ', "\n",
'0006.tif ', "\n",   
'0007.tif ', "\n",    
'0008.tif ', "\n",   
'0009.tif ', "\n",
'0010.tif ', "\n");

my @even = grep ($_ % 4 == 1, @array);
print "@even\n";

my @odd = grep ($_ % 4 - 1 == 1, @array);
print "@odd\n";
[download]

Comment on Re: arrays help Download Code

Replies are listed 'Best First'.
Re^2: arrays help by youlose (Scribe) on Oct 27, 2010 at 10:19 UTC
Your solution is great, but i want to correct it. it must be look like `my @subA = grep( $_ % 4 == 1, 0..$#array ) my @subB = grep( $_ % 4 == 2, 0..$#array ) e.t.c.` [download]	[reply] [d/l]