pick-convertor.pl

#!/usr/bin/perl -w

use Switch;
use strict;

print "Enter a set name: ";
my $set = <STDIN>; 
chomp $set;
my $lset = lc($set); 

my $source = "$lset.htm";
my $destination = "$lset.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 DST "$set|$name|$rate|$med\n";
        $state = 1;
    }
}

close DST;