Help for this page
#!c:/perl/bin/perl -w use strict; ... print "\t$key accessed $value times.\n" while (($key,$value) = ea +ch %{$hash{$company}}); print "\n"; }
while (<FILE>) { my @a = split /,/; $hash{$a[3]}{$a[4]}++; }
www.com | www.net | www.org
No recent polls found