#!/usr/local/bin/perl

# Teile WWW-Log auf in einzelne Tage:

while (<>)
{
	warn "$_" && next unless m=\[(..)/(...)/(....):=;
	$day = "$3-$2-$1";
	if ($day ne $open)
	{
		open (STDOUT, ">>$day") || die "$day: $!";
		$open = $day;
	}
	print;
}