- or download this
(my $timestamp,my $page,my $userURL,etc) = split('\|',$line);
my ($timestamp,$page,$userURL,etc) = split('\|',$line); # which is muc
+h cleaner.
- or download this
my ($var1,$var2,$var3) = ('','','');
my ($var4,$var5,$var6);
- or download this
my %hits
for (....) {
...
$hits($page}[0]++;
..
}
- or download this
print $pages{"page1"}->[1];
print $pages{"page1'}[1];