PrintAusgaben in Logfile schreiben

[Max]

Hallo,
ich habe eine kleine frage: ich habe ein mittlerweile recht umfangreiches perl skript erstellt, mit zahlreichen print anweisungen. ist es irgendwie möglich perl zu sagen, dass alles was geprintet wird automatisch in ein logfile geschrieben wird? oder muss ich das bei jedem printbefehl ergänzen?

vielen dank für eure antworten!
gruß max

[Patrick Andrieu]

Hallo Max!

ich habe eine kleine frage: ich habe ein mittlerweile recht umfangreiches perl skript erstellt, mit zahlreichen print anweisungen. ist es irgendwie möglich perl zu sagen, dass alles was geprintet wird automatisch in ein logfile geschrieben wird? oder muss ich das bei jedem printbefehl ergänzen?

Ja, enteweder jede print-Anweisung durch print OUT "..."; ersetzen (vorher muss natürlich eine Datei unter dem Filehandle OUT geöffnet worden sein), oder:

STDOUT umleiten

Viele Grüße aus Frankfurt/Main,
Patrick

[Horst]

Hallo,

[..] oder muss ich das bei jedem printbefehl ergänzen?

Mach einen Handler auf die Datei:

open OUT, ">>$logfile" or die $!;

und nun:

select OUT;

hier die einzelnen print's; die gehen dann alle in das Logfile

zum Schluss:

select STDOUT;
close OUT;

__END__

Viele Grüße,
Hotte