forked from External/mage
47 lines
No EOL
972 B
Perl
47 lines
No EOL
972 B
Perl
#!/usr/bin/perl -w
|
|
|
|
use strict;
|
|
|
|
my $knownSetsFile = 'known-sets.txt';
|
|
|
|
my $cards_count = 0;
|
|
|
|
my %knownSets;
|
|
my %cards;
|
|
|
|
open (DATA, $knownSetsFile) || die "can't open $knownSetsFile";
|
|
while(my $line = <DATA>) {
|
|
my @data = split('\\|', $line);
|
|
$knownSets{$data[1]}= $data[2];
|
|
}
|
|
close(DATA);
|
|
|
|
open CARDS, "< added_cards.txt" or die;
|
|
|
|
while (<CARDS>) {
|
|
my $line = $_;
|
|
if ( $line =~/A Mage.Sets\\src\\mage\\sets\\(\w.*)\\(\w.*)\.java/ ) {
|
|
$cards_count++;
|
|
my $set = $1;
|
|
my $card = $2;
|
|
if (!exists($cards{$set})) {
|
|
$cards{$set} = [];
|
|
}
|
|
|
|
push $cards{$set}, $card;
|
|
}
|
|
}
|
|
|
|
open REPORT, "> added_cards_in_wiki_format.txt";
|
|
print REPORT " * Added cards ($cards_count):\n";
|
|
foreach my $set (keys(%cards)) {
|
|
if (exists $knownSets{$set}) {
|
|
print REPORT " * $knownSets{$set}: ";
|
|
} else {
|
|
print REPORT " $set: ";
|
|
}
|
|
foreach my $card (@{$cards{$set}}) {
|
|
print REPORT $card . ", ";
|
|
}
|
|
print REPORT "\n";
|
|
} |