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

top pick convertor from magic.tcgplayer.com

Browse source
This commit is contained in:
Loki 2011-02-07 19:29:38 +02:00
parent ffc7b5bfd8
commit 79592bc177
1 changed files with 78 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

78
Utils/pick-convertor.pl Normal file
View file

@ -0,0 +1,78 @@
#!/usr/bin/perl -w
use Switch;
use strict;
my $source = "zendikar-pick.htm";
my $destination = "result.txt";
open SRC, "< $source" or die "Can't open source: $!\n";
open DST, "> $destination" or die "Can't open destination: $!\n";
my $state = 0;
my $name;
my $rate;
my $max;
my $med;
my $min;
while (<SRC>) {
my $s = $_;
chomp $s;
if ($state == 0) {
if ($s eq "<table width=540 cellpadding=1 cellspacing=0 border=0 align=center>") {
$state = 1;
next;
}
} elsif ($state == 1) {
if ($s =~/<tr>/) {
$state = 2;
next;
}
} elsif ($state == 2) {
if ($s =~/>([\w ',]+)<\/a>/) {
$name = $1;
$state = 3;
next;
}
} elsif ($state == 3) {
if ($s =~/<td /) {
$state = 4;
next;
}
} elsif ($state == 4) {
$state = 5;
next;
} elsif ($state == 5) {
$state = 6;
next;
} elsif ($state == 6) {
$state = 7;
next;
} elsif ($state == 7) {
if ($s =~/^\s+([0-9]*\.?[0-9]+)/) {
$rate = $1;
$state = 8;
next;
}
} elsif ($state == 8) {
if ($s =~/\$([0-9]*\.?[0-9]+)/) {
$max = $1;
$state = 9;
}
} elsif ($state == 9) {
if ($s =~/\$([0-9]*\.?[0-9]+)/) {
$med = $1;
$state = 10;
}
} elsif ($state == 10) {
if ($s =~/\$([0-9]*\.?[0-9]+)/) {
$min = $1;
$state = 11;
}
} elsif ($state == 11) {
print "$name|$rate|$med\n";
$state = 1;
}
}