なにかの画像を収集するスクリプト

cind.pl

use v6;

my @type = (1..3).list;
my @rare = (0..5).list;
my @num = (1..29).list;
my @plus = (1..3).list;
my $cmd;

for @type X @rare X @num X @plus -> $t, $r, $n, $p {
    $cmd = 'wget http://example.com/directory/' ~ $t ~ $r ~ $n.fmt("%03d") ~ $p.fmt("%02d") ~ ".jpg";
    eval "qx \'$cmd\'";
}