Datem-extention

[Patrick Andrieu]

Hallo Struppi!

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

open(DATEI,"<$Name") || die "Konnte Datei nicht öffnen, weil: $!";

while(<DATEI>) {
  my $Zeile = $_;
  chomp $_;
  ($dvname, $sut, $release, $testcase, $startdate, $starttime) = split(/;/ , $Zeile);
}

open(DATEI,"<$Name") || die "Konnte Datei nicht öffnen, weil: $!";
while(<DATEI>) {
 chomp(my $Zeile = $_);
  (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;

@Edi: Zum Verständnis bitte dieses Posting auch lesen!

Viele Grüße aus Frankfurt/Main,
Patrick