nicht angemeldet
Hallo Struppi,
du hast völlig recht...ich muss mich wirklich damit auseinander setzen. aber das problem ist dass ich nicht so lange bei dieser aufgabe hängen bleiben darf und ich muss es schnell abgeben.
also das problem hab ich auch gelöst. jetzt hab ich aber noch eins( hoffentlich das letzte) und zwar bei der ausgabe wenn ich die zeilen splitte und in die tabellen gebe wird nur die letzte zeile ausgegeben und nicht die gesamte datei. hast du vielleicht eine ahnung woran das liegen konnte ?
my $Name = "t.log.".$Jahr.$Monat.$Monatstag;
chdir("/applications/tcmon/logs/");
open(DATEI,"<$Name") || die "Konnte Datei nicht öffnen";
while(<DATEI>) {
my $Zeile = $_;
chomp $_;
($dvname, $sut, $release, $testcase, $startdate, $starttime) = split(/;/ , $Zeile);
}
close DATEI;
print "Content-type: text/html\n\n";
print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">', "\n";
print "<html><head><title>log-Ausgabe von $Monatstag/$Monat/$Jahr</title>\n<meta http-equiv="refresh" content="240";>\n</head><body><table border="1" align="center">\n";
print "<tr><th>User</th><th>System under Test</th><th>Release</th><th>Testcase</th><th>Start date</th><th>Start time</th></tr>\n";
print "<tr><td>$dvname</td><td>$sut</td><td>$release</td><td>$testcase</td><td>$startdate</td><td>$starttime</td></tr>\n";
print "</table></body></html>\n";
danke !
Edi
Struppi