Community  »  Perl: Allgemeines Forum

Bitte helft mir...	Seitenanfang
Hallo, ich bin auf diese community mittels google gestossen. Ich habe ein Problem: Mir wurde ein Perl script geschrieben, welches leider bis heute nicht funktioniert. Es soll in eine vorgefertigte Rechung eine fortlaufende Rechnungsnummer schreiben... Was ist hier falsch : #Rechnungsnr. aus Datei holen und Rechnungsnummer hochsetzen open(INFO, "<rechnungsnr.txt"); $rechnungsnr = <INFO>; close (INFO); $rechnungsnr_neu = $rechnungsnr+1; open(WRITE, ">rechnungsnr.txt"); print WRITE "$rechnungsnr_neu"; close (INFO); $rechnungsnr = $rechnungsnr; in der .txt datei müsste ja theoretisch dann eine nummer drin stehen. Leider ist diese bis jetzt leer geblieben. Jetzt habe ich eine Anmahnung vom Finanzamt bekommen und denke jetzt wirds mal zeit... Wäre super wenn mir hier jemand helfen könnte. Bitte per email kontaktieren. Vielen Dank und schöne Ostern... Datum: 27.03.2005-19:39
re: Bitte helft mir...	Seitenanfang
Hallo, versuche das: #Rechnungsnr. aus Datei holen und Rechnungsnummer hochsetzen open(IN, "<rechnungsnr.txt"); $rechnungsnr = <IN>; close (IN); $rechnungsnr++; open(OUT, ">rechnungsnr.txt"); print OUT $rechnungsnr; close (OUT); Ersetze Deinen Codeschnipsel mit dem obigen. Ciao Ingo Datum: 28.03.2005-11:59
re: Bitte helft mir...	Seitenanfang
Ihr solltet euch beide eine Fehlerbehandlung angewöhnen! Dabei können schon bestimmt 80% der Fehler erkannt werden: use strict; use warnings; #Rechnungsnr. aus Datei holen und Rechnungsnummer hochsetzen my $file = "./rechnungsnr.txt"; open(IN, "<$file") or die $!; my $rechnungsnr = <IN>; close (IN); $rechnungsnr++; open(OUT, ">$file") or die $!; print OUT $rechnungsnr; close (OUT); mit dem "or die $!" bekommt ihr z.B. ne Fehlermeldung, wenn die Zugriffsrechte der Datei oder der Pfad zu der Datei nicht stimmen. use strict; und use warnings; sollte man in jedem seiner Skripte benutzen. Warum?? Darum: http://wiki.perl-community.de/bin/view/Wissensbasis/UseStrict Datum: 28.03.2005-18:47