#!/usr/bin/perl -Tw
# zzlottoz
#	check and see if you win the lottery.

use LWP::Simple;

my $url			= "http://209.210.49.50/winningnumbers.asp";
my $lotto_file 	= shift || "lotto.txt";
my @numbers		= ();
my @winners   		= ();
my $mega			= "";
my %lotto;

open LOTTO, $lotto_file or die "Couldn't open lotto data file: $!\n.";

while (<LOTTO>){
	my @data = split /::/;
	push @numbers, [ @data ];	
}

close LOTTO or warn "Error while closing lotto data file: $!\n.";

my $web = get ($url);

die "Unable to download lottery numbers.\n" unless (defined($web));

(@winners) = $web =~ /Super Lotto Plus Winning Numbers:\s+(\d{1,2})\s+(\d{1,2})\s+(\d{1,2})\s+(\d{1,2})\s+(\d{1,2})\s+Mega\s+(\d{1,2})/s;
$mega = pop @winners;

die "Error parsing lotto numbers!\n" unless ((@winners) && (defined($mega)));

foreach my $num (@winners){
	$lotto{$num}= 1;	
}

print "\n LOTTO RESULTS: @winners MEGA: $mega\n\n";
print "     N  U  M  B  E  R  S       MEGA\n";

foreach my $ticket (@numbers){
	foreach my $num ( (@$ticket[0..4]) ){
		($lotto{$num}) ? printf(" [%2u] ",$num) : printf ("  %2u  ",$num);
	}
	($$ticket[5] == $mega) ? printf " [%2u] ",$mega : printf "  %2u  ",$$ticket[5];
	print "\n";
}