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

updated gen-card.pl with clearer error handling

Browse source
This commit is contained in:
antonig@sas.upenn.edu 2019-04-17 21:57:07 -04:00
parent ab548cc01c
commit 6e4ac3899b
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
Utils/gen-card.pl
View file

@ -32,7 +32,7 @@ sub fixCost {
my $author; my $author;
if (-e $authorFile) { if (-e $authorFile) {
open (DATA, $authorFile); open (DATA, $authorFile) || die "can't open $authorFile : $!";
$author = <DATA>; $author = <DATA>;
chomp $author; chomp $author;
close(DATA); close(DATA);
@ -40,14 +40,14 @@ if (-e $authorFile) {
$author = 'anonymous'; $author = 'anonymous';
} }
open (DATA, $dataFile) || die "can't open $dataFile"; open (DATA, $dataFile) || die "can't open $dataFile : $!";
while(my $line = <DATA>) { while(my $line = <DATA>) {
my @data = split('\\|', $line); my @data = split('\\|', $line);
$cards{$data[0]}{$data[1]} = \@data; $cards{$data[0]}{$data[1]} = \@data;
} }
close(DATA); close(DATA);
open (DATA, $setsFile) || die "can't open $setsFile"; open (DATA, $setsFile) || die "can't open $setsFile : $!";
while(my $line = <DATA>) { while(my $line = <DATA>) {
my @data = split('\\|', $line); my @data = split('\\|', $line);
$sets{$data[0]}= $data[1]; $sets{$data[0]}= $data[1];
@ -55,14 +55,14 @@ while(my $line = <DATA>) {
} }
close(DATA); close(DATA);
open (DATA, $knownSetsFile) || die "can't open $knownSetsFile"; open (DATA, $knownSetsFile) || die "can't open $knownSetsFile : $!";
while(my $line = <DATA>) { while(my $line = <DATA>) {
my @data = split('\\|', $line); my @data = split('\\|', $line);
$knownSets{$data[0]}= $data[1]; $knownSets{$data[0]}= $data[1];
} }
close(DATA); close(DATA);
open (DATA, $keywordsFile) || die "can't open $keywordsFile"; open (DATA, $keywordsFile) || die "can't open $keywordsFile : $!";
while(my $line = <DATA>) { while(my $line = <DATA>) {
my @data = split('\\|', $line); my @data = split('\\|', $line);
$keywords{toCamelCase($data[0])}= $data[1]; $keywords{toCamelCase($data[0])}= $data[1];