format

[Markus Banach]

Liebe Forumsbesucher,

mit dem folgenden Code wollte ich erreichen , dass die formatierten Zeilen in das array @tpt gespeichert werden.
Werden Sie aber nicht !?

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

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

Vielen Dank fuer Eure Tips

Markus Banach