Datem-extention

[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.

Naja, tagelang was falsch machen ist natürlich auch nciht schnell und ob es schneller ist, als sich mal mit der Materie ein wenig auseinanderzusetzen wage ich zu bezeifeln.

also das problem hab ich auch gelöst.

Du hast my rausgeschmissen? Das ist natürlich keine Lösung.

my $Name = "t.log.".$Jahr.$Monat.$Monatstag;
chdir("/applications/tcmon/logs/");
open(DATEI,"<$Name") || die "Konnte Datei nicht öffnen";

Du kannst und solltest dir auch den Grund für einen evtl. Fehler anzeigen lassen.

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

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

Du liest hier zeilenweise die Daten ein und machst nichts damit. Das ganze Konzept stimmt nicht. Du musst schon hier in der Schleife die Ausgabe machen, dann kannst du auch wieder my verwenden

Struppi.