Datem-extention

[Struppi]

Edi hat meine Korrektur auch nicht berücksichtigt, ohne die gar nicht gechompt wird. Besser wäre außerdem:

und mit dem CGI Modul

#!/usr/bin/perl -w  
use strict;  
use CGI;  
print CGI::header(),  
CGI::start_html(),  
CGI::start_table();  
  
open(DATEI,"<$Name") || die "Konnte Datei nicht öffnen, weil: $!";  
while(<DATEI>) {  
chomp;  
my ($dvname, $sut, $release, $testcase, $startdate, $starttime) = split(/;/ , $_);  
print CGI::Tr( CGI::td(  
  [  
  $dvname,  
  $sut,  
  $release,  
  $testcase,  
  $startdate,  
  $starttime  
  ]  
  ));  
}  
close DATEI;  
print CGI::end_table(),  
CGI::end_html();

Struppi.