Hallo,

ich verwende fuer verschiedene Perl Programme, die als Daemon laufen, folgenden Schnipsel um ein Logbuch mit verschiedenen Werten des Programms zu erhalten:

open(LOG1, ">>$mypfad/protokoll";
open(STDOUT, ">>&LOG1");
print '************ '.$program.' Gestartet: '.time()."\n";
.......
print ........

Das funktioniert auch super und hat sich lange bewaehrt.

Nun befasse ich mich erstmalig mit der Modul-Programmierung.

Dabei moechte ich das gleiche in einem Modul einbauen, das bei jedem Modulaufruf eine eigene Datei verwendet (deshalb > statt vorher >>).

open(LOG1, ">$mypfad/protokoll.time()";
open(STDOUT, ">&LOG1");
print '************ '.$program.' Gestartet: '.time()."\n";
.......
print ........

Aber immer wenn ich diese 3 Zeilen in das Modul einbaue dann funktioniert es nicht mehr. Ich bekomme im error_log nur den Hinweis:

Name "DocSend2::LOG1" used only once: possible typo at main line 24

Aber da das ja nur eine Warning ist, duerfte es kein wirkliches Problem sein. Die Rechte fuer den Ordner in den die Logdatei geschrieben werden soll sind auf 777 gesetzt

Jedenfalls bricht das Modul immer ab (und ich kann nicht herausfinden wo oder weshalb) und wird nicht ausgefuehrt und es wird auch nichts in den entsprechenden Ordner fuer die Logdateien geschrieben.

Hat jemand eine Idee, wie ich da weiterkommen kann?
Ich finde aber auch keinen Fehler in diesen drei Zeilen und habe keine Ahnung, was da schief laufen koennte.

Christian

ein open() solltest du immer abfangen, es könnte ja fehlschlagen.


und als anregung für modernes perl solltest du mal diesen artikel lesen:
WasIsteinLexikalischerFileHandle
filehandles können in perl schon seit einiger zeit ganz normale variablen sein, was die
programmierung sauberer macht, weil sie dann sie z.b. den regeln von strict unterliegen. du
kennst strict nicht? dann auch noch das hier lesen: UseStrict

Gast+2009-01-31 12:13:00--

[...]

Code (perl): (dl )

open(LOG1, ">$mypfad/protokoll.time()";

[...]

Ich wuerde es ja mal mit

versuchen.

Jedenfalls sagt mir meine Glaskugel, dass Du eigentlich nicht die Zeichenkette "time()" am Ende des Logdateinamens stehen haben willst, sondern eine Zeitangabe. So ein komischer Dateiname mit Klammern drin kann auch auf manchen Dateisystemen Probleme verursachen.

Dass man ausser in Spezialfaellen stets die Dreiargumentform von open verwenden und gruendsaetzlich immer den Rueckgabewert pruefen sollte, versteht sich von selbst und wurde auch bereits von pq erwaehnt.


@pq: Lexikalische Filehandles sind zwar eine feine Sache, aber das Umleiten anderer Filehandles mit der vom OP verwendeten Syntax geht, soweit ich weiss, nur mit "klassischen" Filehandles.

murphy+2009-01-31 23:01:14--

@pq: Lexikalische Filehandles sind zwar eine feine Sache, aber das Umleiten anderer Filehandles mit der vom OP verwendeten Syntax geht, soweit ich weiss, nur mit "klassischen" Filehandles.

geht hier wunderbar =)

Jetzt noch die obligatorische Frage: Was spricht gegen die Verwendung von Log::Log4perl ?

@pq: Da hatte ich wohl etwas falsch im Kopf. Danke fuer das Gegenbeispiel :-)

Wieder mal kein Hinweis darauf, dass es ein Crosspost ist:

http://www.perlboard.de/cgi-bin/perlboard.pl?actio...

hier auch noch eins: http://www.wer-weiss-was.de/app/archive/show/49907...

Unser Board braucht mal eine automatische Crossposterkennung, das nimmt in letzter Zeit echt Ueberhand ;-)

@murphy: haben wir schon. Der Crossposterkennungsbot heißt Linuxer ;-)