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

updated script

Browse source
This commit is contained in:
magenoxx 2011-08-30 18:04:36 +04:00
parent 4a97e9c6fc
commit 70050d5ad6
1 changed files with 18 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
Utils/extract_in_wiki_format.pl
View file

@ -35,13 +35,22 @@ while (<CARDS>) {
open REPORT, "> added_cards_in_wiki_format.txt"; open REPORT, "> added_cards_in_wiki_format.txt";
print REPORT " * Added cards ($cards_count):\n"; print REPORT " * Added cards ($cards_count):\n";
foreach my $set (keys(%cards)) { foreach my $set (keys(%cards)) {
if (exists $knownSets{$set}) { if ($set ne "tokens") {
print REPORT " * $knownSets{$set}: "; if (exists $knownSets{$set}) {
} else { print REPORT " * $knownSets{$set}: ";
print REPORT " $set: "; } else {
print REPORT " $set: ";
}
my $first = 1;
foreach my $card (@{$cards{$set}}) {
if ($first == 0) { print REPORT ","; }
$card =~ s/([A-Z]{1}[a-z]+)/ $1/g;
$card =~ s/A Ether/ AEther/g;
print REPORT $card;
$first = 0;
}
print REPORT "\n";
} }
foreach my $card (@{$cards{$set}}) {
print REPORT $card . ", ";
}
print REPORT "\n";
} }
close REPORT;