Updated script and instruction for getting the list of implemented cards

This commit is contained in:
magenoxx 2012-08-14 15:34:35 +04:00
parent 85b31df2d5
commit b69e23f4b8
3 changed files with 22 additions and 16 deletions

View file

@ -70,12 +70,12 @@ foreach my $set (keys(%cards)) {
}
my $first = 1;
foreach my $card (@{$cards{$set}}) {
if ($first == 0) {
print REPORT "; ";
} else {
$first = 0;
}
if ($cardsBySet{$knownSets{$set}}{$card}) {
if ($first == 0) {
print REPORT "; ";
} else {
$first = 0;
}
print REPORT $cardsBySet{$knownSets{$set}}{$card}[0];
} else {
#$card =~ s/([A-Z]{1}[a-z]+)/ $1/g;