Das ist schon nicht ganz so einfach....

Die drunterliegende Infrastruktur (C-Bibliotheken) gibt's nicht her, mit einem print in zwei Dateien zu schreiben. Eine Umleitung der Ausgabe passiert ja auch nicht im Programm selbst, sondern in der Shell, die das Programm aufruft. "Irgendwer" muss also die zwei print-Aufrufe an die zwei Filehandles explizit nacheinander absetzen.

Wenn Du sowohl warn als auch direktes print STDERR abfangen willst, dann hilft Dir %SIG{__WARN__} auch nicht weiter.

Beim Apache kann man die Log-Inhalte auch an einen Prozess schicken, der Prozess könnte dann die zwei Dateien befüllen. Das ist die normale Methode, um logrotate mit Apache zu verwenden - aber das ist dann doch wieder eine Pipe.

Wenn alles innerhalb eines Prozesses passierem soll, dann hätte ich zwei Ideem;

• Capture::Tiny hat eine Methode tee_stderr. Damit bekommst Du alles, was nach STDERR geht, zusätzlich in eine Variable, musst die aber immer noch zu einem geeigneten Zeitpunkt in Deine Logdatei schreiben. Das mit dem "geeigneten Zeitpunkt" kann bei einem persistenten Perl-Interpreter etwas schwierig werden.
• Mit perltie kannst Du den Handle STDERR in eine Klasse "umlenken", dazu gibt es einen eigenen Abschnitt in der Beschreibung. Da schreibst Du dann eine PRINT-Methode etwa in der Art:
  
  Code (perl): (dl )

  1
  2
  3
  4
  5
  6
  

  sub PRINT {
      my $self = shift;
      local STDERR; untie STDERR;
      print STDERR @_;
      print $my_log_file @_;
  }

Ohne selber tief eingestiegen zu sein in die Thematik; hier ein Suchtreffer: ;-)

Eventuell kann das in https://stackoverflow.com/questions/5323268/how-to... aufgezeigte PerlIO::Util oder IO::Tee weiterhelfen.

Ich werde am Anfang des Programms dann das einfügen, damit STDErr gefangen wird.



Geht auf der Kommandozeile von Linux und Windows, aber entzieht auf einem Linux Apache STDERR, sodass der nichts mehr ins Errorlog bekommt.

//EDIT:
Ich finde aber nix dazu auf https://metacpan.org/release/SHAY/perl-5.34.1/view...
Last edited: 2022-08-06 17:34:11 +0200 (CEST)