Logbuch mitschreiben in Modul

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 mit der Modul-Programmierung.

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

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

print …

Aber immer wenn ich diesen Schnipsel 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?

Christian

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

Hier hast du schon ein paar Antworten erhalten, aber dich doch nicht wieder zu Wort gemeldet:
http://board.perl-community.de/thread/13085/startWit…

Wenn man in so vielen Foren postet (auf perlboard.de hast du das auch noch gepostet), sollte man auch in allen Foren regelmässig mal nach Antworten schauen…