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