Datem-extention

[Siechfred]

Ich darf doch mal :)

open(DATEI,"<$Name") || die "Konnte Datei nicht öffnen, weil: $!";
while(<DATEI>) {
  my $Zeile = $;
  chomp $;
  (my $dvname, my $sut, my $release, my $testcase, my $startdate, my $starttime) = split(/;/ , $Zeile);
  print "<tr><td>$dvname</td><td>$sut</td><td>$release</td><td>$testcase</td><td>$startdate</td><td>$starttime</td></tr>\n";
}
close DATEI;

  
Oder die Kurzform:  
  
~~~perl
print '<table>';  
open DATEI, $name || die $!;  
while(<DATEI>) {  
  chomp;  
  print '<tr>';  
  print "<td>$_</td>" foreach split /;/;  
  print '</tr>';  
}  
print '</table>';

Oder gleich mit Templates.

Siechfred