Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
my $color = join ',', qw/BLU GRN WHT BLK/;

print "$_\n" for glob "{$sku}{$tslh}{$size}{$color}";
  2. or download this
    SKU1TSBLU
SKU1TSGRN
...
SKU3H2XGRN
SKU3H2XWHT
SKU3H2XBLK