in reply to Multiple Permutation handling
Here's a glob option:
use strict; use warnings; my $sku = join ',', qw/SKU1 SKU2 SKU3/; my $tslh = join ',', qw/T S L H/; my $size = join ',', qw/S M L XL 2X /; my $color = join ',', qw/BLU GRN WHT BLK/; print "$_\n" for glob "{$sku}{$tslh}{$size}{$color}";
Partial output:
SKU1TSBLU SKU1TSGRN SKU1TSWHT SKU1TSBLK SKU1TMBLU SKU1TMGRN ... SKU3HXLWHT SKU3HXLBLK SKU3H2XBLU SKU3H2XGRN SKU3H2XWHT SKU3H2XBLK
Update:Removed unnecessary dashes in the string and the substitution. Thanks, kcott.
In Section
Seekers of Perl Wisdom