Re: newbie multidimensional hash question

[Mark Lybrand]

Here's what I saw:

%pagecount = ();
 
#if($pagecount{$page}{$ip}){
#    $pagecount{$page}{$ip}++;
#} else {
#   $pagecount{$page}{$ip} = 1;
#}
# The conditional was incorrect; besides hashes auto-vivify so I can
# just write:
$pagecount{$page}{$ip}++;
 
#next line 
#for $ipaddress (keys %pagecount){
#shoule be:
foreach $ipaddress (keys %pagecount) {
    print "$ipaddress visited ";
    # syntax error next line
    #for $pagevisited(keys %{pagecount{$ipaddress}}){
    # should be:
    foreach $pagevisited (keys %{$pagecount{$ipaddress}}) {
        print "$pagevisited $pagecount{$ipaddress}{$pagevisited} times";
    }
}
 
While it is untested, that should work.

Mark :)


_______________________________________________
Perl-Win32-Web mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web