combination help script

[PerlElvir]

Hi all,
can someone help me to make this script with combination, because Im begginer ). I have :

a1
a2
a3

and

b1
b2
b3

so I need script which will make all combination:

a1:b1,a1:b2,a1:b3,a2:b1,a2:b2...

 

[Corwinsw]

my @arr1 = (a1,a2,a3);
my @arr2 = (b1,b2,b3);

foreach my $var1 (0 .. $#arr1) {
foreach my $var2 (0 .. $#arr2) {
print "$arr1[$var1], $arr2[$var2]\n";
}
}



Corwin

 

[PerlElvir]

thx dude )

 

[ishnid]

If it gets more complicated (i.e. more than two lists), you may want to look at the Math::Combinatorics module.

 

[PerlElvir]

this is good one thank you dude