External/mage
1
0
Fork 1
mirror of https://github.com/magefree/mage.git synced 2025-12-20 10:40:06 -08:00
Code Issues Projects Releases Packages Wiki Activity Actions

* 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
Download patch file Download diff file Expand all files Collapse all files

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

@ -29,7 +29,6 @@ while(my $line = <DATA>) {
if ($data[1] eq $setName) { if ($data[1] eq $setName) {
push(@setCards, \@data); push(@setCards, \@data);
} }
}
close(DATA); close(DATA);
open (DATA, $knownSetsFile) || die "can't open $knownSetsFile"; open (DATA, $knownSetsFile) || die "can't open $knownSetsFile";
@ -61,7 +60,8 @@ sub toCamelCase {
$string =~ s/[-,\s\']//g; $string =~ s/[-,\s\']//g;
$string; $string;
} }
my $cardsFound = 0;
my $cardsImplemented = 0;
my $toPrint = ''; my $toPrint = '';
foreach my $card (sort cardSort @setCards) { foreach my $card (sort cardSort @setCards) {
my $className = toCamelCase(@{$card}[0]); my $className = toCamelCase(@{$card}[0]);
@ -71,8 +71,13 @@ foreach my $card (sort cardSort @setCards) {
$toPrint .= "\n"; $toPrint .= "\n";
} }
$toPrint .= "@{$card}[2]|@{$card}[0]"; $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"; open CARD, "> " . lc($sets{$setName}) . "_implemented.txt";
print CARD $toPrint; print CARD $toPrint;
close CARD; close CARD;