Title: 2004-10-15 Off Season Rosters
Post by sydvicious on Oct 15^th, 2004, 7:24pm

I know, the keeper years all say "1".


TRANSACTIONS:

Scott - Activated Catalanotto_Frank/TOR; Waived Castilla_Vinny/COL
Scott - Activated Day_Zach/MON; Waived Reese_Pokey/BOS
Scott - Activated Hernandez_Runelvys/KCA; Waived Lowe_Derek/BOS
Scott - Activated VanBenschoten_John/PIT; Waived Quantrill_Paul/NYA
Scott - Activated Williamson_Scott/BOS; Waived Reyes_Dennys/KCA
Sean - Activated Burnett_Sean/P

####

#!d:/perl56/bin

use strict;

{
package HTMLParser;
use base "HTML::Parser";

sub text
	{
		my ($self, $origtext) = @_;
		$origtext =~ s/ //g;
		$self->{TEXT} .= $origtext;

		### Read through hash and test each line against array
		@field = qw (C 1B 2B 3B SS OF1 OF2 OF3 DH B1 B2 B3 B4 B5 B6 B7 B8 SP1 SP2 SP3 SP4 SP5 SW1 SW2 SW3 SW4 SW5 SW6 SW7 RP1 RP2 RP3 RP4 RP5 RP6 RP7 IR);

		my @test = split(/\s*[ ]/,$origtext);
		
		foreach $line (@field) {
			if ($test[0] eq $line) {
				print "$test[1]\n";		
			}
		}

	}
}

my $leaguefile = $ARGV[0];
open(DATAFILE1,"$leaguefile") || die "Cannot open test file";

my $sp = new HTMLParser;

while () {
	$sp->parse_file($_);	
}
$sp->eof;

close DATAFILE1;