github/mage
1
0
Fork 0
mirror of https://github.com/correl/mage.git synced 2024-12-01 03:00:09 +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

11
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 ($set ne "tokens") {
if (exists $knownSets{$set}) { if (exists $knownSets{$set}) {
print REPORT " * $knownSets{$set}: "; print REPORT " * $knownSets{$set}: ";
} else { } else {
print REPORT " $set: "; print REPORT " $set: ";
} }
my $first = 1;
foreach my $card (@{$cards{$set}}) { foreach my $card (@{$cards{$set}}) {
print REPORT $card . ", "; 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"; print REPORT "\n";
}
} }
close REPORT;