use strict;
use warnings;
use integer;
# See http://www.perlmonks.org/?node_id=154008
my @permutation = (
[['SKU'],[1..3],[qw(T S L H)],[qw(S M L XL 2X)],[qw(BLU GRN WHT BL
+K)]],
[['SKU'],[4..5],[qw(S M L XL 2X)]],
[['SKU'],[6],[qw(S M L XL 2X)],[qw(BLU GRN WHT BLK)]]
);
for my $p (@permutation) {
my $iter = make_permutator(@$p);
while (my @els = $iter->()){
print @els, "\n";
}
}
sub make_permutator {
my @idx_link = (0, @_);
my $idx;
return sub {
$idx = $idx_link[0]++;
my @ret;
for my $i (1..$#idx_link) {
push @ret, $idx_link[$i][$idx % @{$idx_link[$i]}];
$idx /= @{$idx_link[$i]};
}
return $idx ? () : @ret;
}
}
1;
__END__