#!/usr/bin/perl 

# use strict sollte Pflicht sein, verhindert viele Fehler
use strict;
use warnings;

# apache logdatei analysieren
my $file = "access.log";

# Fehler sollten abgefangen werden
# lexikalische Filehandles haben Vorteile
# 3-Arg-open ist sicherer
open my $fh,'<', $file or die $!;

my %hash;
while ( my $line = <$fh> ) {
    my ($site) = $line =~ /(?:GET|POST)\s([^\s]+)/;
    $hash{$site}++;
}
print "\nAnzahl der Seiten: ", scalar(keys %hash), " \n",
      "-"x25,"\n";

for my $url( keys %hash ){
    print $url," : ",$hash{$url},"\n";
}