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

spjspj - Start of tracking down duplicate cards

Browse source
This commit is contained in:
spjspj 2016-10-02 00:55:23 +10:00
parent 8b66eff239
commit b8632f0249
1 changed files with 63 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

63
Utils/gen_list_duplicate_collector_ids.pl Normal file
View file

@ -0,0 +1,63 @@
#!/usr/bin/perl -w
#author: spjspj
use strict;
use Scalar::Util qw(looks_like_number);
my $dataFile = "mtg-cards-data.txt";
my $setsFile = "mtg-sets-data.txt";
my $knownSetsFile = "known-sets.txt";
my %sets;
my %knownSets;
my @setCards;
my %nameSetNumber;
my %setNumber;
open (DATA, $dataFile) || die "can't open $dataFile";
print ("Looking at data in $dataFile\n");
while (<DATA>)
{
chomp;
my $line = $_;
my $addDay = "";
if ($line =~ m/(transform|transformed under)/img)
{
$addDay = "-day";
}
if ($line =~ m/(meld them|melds with)/img)
{
$addDay = "-day";
}
$line =~ s/^(([^\|]+)\|([^\|]+)\|([^\|]+))\|.*/$1/;
my $name = $2;
my $set = $3;
my $number = $4;
$nameSetNumber {$line . $addDay} ++;
my $sn = "$set.$number$addDay";
if (!defined ($setNumber {$sn}))
{
$setNumber {$sn} = $name;
}
elsif ($setNumber {$sn} ne $name)
{
print ("Problem -> '$name' has the same collectorID/Set Name as ::: $setNumber{$sn} ($sn)\n");
}
}
close(DATA);
print ("Finished with data in $dataFile\n");
my $key;
foreach $key (sort keys (%nameSetNumber))
{
if ($nameSetNumber {$key} > 1)
{
#print ("$key >> $nameSetNumber{$key} may be a duplicate!\n");
}
}