#!f:/perl/bin/perl.exe -w use strict; my $PowerballHistoricFile='d:/code/perl/lottery/powerball_numbers.txt'; my(%History,$Date,@Numbers); open(HISTORY,$PowerballHistoricFile) or die "Could not open $PowerballHistoricFile!"; foreach my $Line(){ ($Date,@Numbers)=split(/ /,$Line); $History{$Date}=[@Numbers]; } close(HISTORY); my(%Frequency,%Frequency2); foreach my $Key(sort(keys(%History))){ for my $SubCounter(0..4){ $Frequency{$History{$Key}[$SubCounter]}++; } } foreach my $Key(sort(keys(%Frequency))){ if($Frequency2{$Frequency{$Key}}){ $Frequency2{$Frequency{$Key}}.=", $Key"; } else { $Frequency2{$Frequency{$Key}}=$Key; } } print "Content-Type: text/html\n\n\n"; print qq(
\n); print qq(\n); foreach my $Key(sort(keys(%Frequency2))){ print qq(\n); } print qq(
Power Ball Historic Information
Number of DrawingsNumbers
$Key$Frequency2{$Key}
\n\n); exit;