Jemand

#!/usr/local/bin/perl -w

open(FILE2, "acces.log");

while (<FILE2>) {
	$temp .= $_;
}
$matched = 0;
close(FILE2);


	

	while ($temp =~ m/(\d\d)\/(...)\/(\d\d\d\d):(\d\d):(\d\d):(\d\d)\s\+\d\d\d\d\] \"GET/) {	
	$matched = 0;
	$var1 = $1;
	$var2 = $2;
	$var3 = $3;
	$var4 = $4;
	$var5 = $5;
	$var6 = $6;
	
		while ($temp =~ s/$var1\/$var2\/$var3:$var4:$var5:\d\d\s\+\d\d\d\d/matched/) {
			$matched++;
		}
		print $var1." ".$var2." ".$var3." ".$var4.":".$var5." "."       ".$matched."\n";
	}