#!/usr/bin/perl -w


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

open IN, $file;

while ( $file = <IN> ) {
#    if ($file =~ /]/ ) {
$p1= index ($file,"- -");
$p2= index ($file,'"',$p1+1);
    $neu = substr ($file,$p1+38,$p2);
    print "$neu \n";
$n ++;
    }
#}
 print "\nAnzahl der Seiten: $n \n";