format

[Jörk Behrends]

Hi Markus!

open ( LOG, "$FileName" ) die "can`t open $FileName : $!" ;
while (<LOG>) {
($sid, $host, $date, $time, $access, $url, $http) = split ( /:/, $_ ) ;
write ;

Das hier nichts rauskommt liegt möglicherweise daran, daß das format vorher definiert werden
muß ... bin mir da aber nicht so sicher.

@tpt = <LOG> ; }

Hier hat Cheatah natürlich recht. Durch diesen Befehl liest Du die restlichen Zeilen aus der
Datei, ohne sie zu bearbeiten ...

format STDOUT =
@>>> @<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<< @<<<<<<< @>>>>> @<<<<<<<<<<<<<<<<<<<< @<<<<<<<
$sid, $host, $date, $time, $access, $url, $http
.

Wie gesagt, diesen Teil einfach mal ein bißchen höher einsetzen.

Jörk