#!/usr/bin/perl
use warnings;
use strict;
our %pages;
foreach my $line (<>) {
my ($ip, $date, $time, $page, $size) = split /\s+/, $line;
$pages{$page}++;
}
while (my($page, $count) = each %pages) {
print "$page was accessed $count times\n";
}
####
Use of uninitialized value $page in hash element at ./get_apache line 8, <> line 17.
Use of uninitialized value $page in hash element at ./get_apache line 8, <> line 17.
was accessed 2 times
/~zz251/ebay/320-1578.jpg was accessed 4 times
/~jrc258/KagomenInuyasha2.gif was accessed 1 times
/~jrc258/mainindex.html was accessed 1 times
ect.....
####
67.82.45.186 14/May/2004 22:17:34 /~pkp201 8028
67.82.45.186 14/May/2004 22:17:34 /~pkp201/Logo_40wht.gif 295
66.27.114.2 14/May/2004 22:22:30 /~zz251/ebay/320-1578.jpg 31185
148.240.172.183 14/May/2004 22:24:38 /~jrc258/KagomenInuyasha2.gif 314
148.240.172.183 14/May/2004 22:24:50 /~jrc258/mainindex.html 299
68.161.9.118 14/May/2004 22:25:23 /~zz251/ebay/320-1578.jpg 31185
136.181.195.77 14/May/2004 22:26:31 /~zz251/ebay/320-1578.jpg 31185
65.33.60.114 14/May/2004 22:26:49 /~zz251/ebay/320-1578.jpg 31185
12.76.96.245 14/May/2004 22:28:04 /~avm205/ 281
68.49.208.214 14/May/2004 22:28:58 /~lc204/badge.JPG 289
24.215.226.51 14/May/2004 22:29:45 /~dc619/ 308
24.29.148.97 14/May/2004 22:30:27 /~jmb299/mohawk.jpg 310
24.29.148.97 14/May/2004 22:30:27 /~jmb299/Jay_Tough.jpg 250
24.29.148.97 14/May/2004 22:30:27 /~jmb299/TikiParty.gif 180
24.29.148.97 14/May/2004 22:30:27 /~jmb299/lanceflyer.jpg 307