github/mage
1
0
Fork 0
mirror of https://github.com/correl/mage.git synced 2024-11-28 11:09:54 +00:00
Code Issues Projects Releases Packages Wiki Activity

* update to pl script (added count output).

Browse source
This commit is contained in:
LevelX2 2014-02-04 17:43:18 +01:00
parent 32699757c4
commit ae8da01ba8
1 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
Utils/gen-list-implemented-cards-for-set.pl
View file

@ -28,7 +28,6 @@ while(my $line = <DATA>) {
my @data = split('\\|', $line);
if ($data[1] eq $setName) {
push(@setCards, \@data);
}
}
close(DATA);
@ -61,7 +60,8 @@ sub toCamelCase {
$string =~ s/[-,\s\']//g;
$string;
}
my $cardsFound = 0;
my $cardsImplemented = 0;
my $toPrint = '';
foreach my $card (sort cardSort @setCards) {
my $className = toCamelCase(@{$card}[0]);
@ -71,8 +71,13 @@ foreach my $card (sort cardSort @setCards) {
$toPrint .= "\n";
}
$toPrint .= "@{$card}[2]|@{$card}[0]";
$cardsImplemented++;
}
$cardsFound = $cardsFound + 1;
}
print "Number of cards found for set " . $setName . ": " . $cardsFound . "\n";
print "Number of implemented cards: " . $cardsImplemented . "\n";
open CARD, "> " . lc($sets{$setName}) . "_implemented.txt";
print CARD $toPrint;
close CARD;