By: Yanick Champoux

Yanick Champoux — Tue, 05 Jan 2010 21:07:57 +0000

…and from there realize that we don’t want a hash, but an array:

my @colours= qw/ red green /;

my $i;
for my $s ( @stuff ) {
..
my $colour=$colours[ $i++ % 2 ];
..
}

And to do without the indexing variable altogether, we can call on darker magic:

my @colours= qw/ red green /;

for my $s ( @stuff ) {
..
my $colour=$colours[ --$| ];
..
}

By: Romeo Vasileniuc

Romeo Vasileniuc — Tue, 08 Dec 2009 00:42:09 +0000

You can try this:

my %colours=(1=>’red’, 0=>’green’);

for(my $i=0;$i<@stuff;$i++){
..
my $colour=$colours{$i%2};
..
}