Kann ich STDOUT und STDERR in eine log-Datei und auch auf dem Bildschirm in Win32-Perl?

Ich habe im Internet gesucht und gefunden haben, einige gute Lösungen für Abschlag STDOUT an 2 verschiedenen Orten. Wie eine log-Datei und auch auf dem Bildschirm zur gleichen Zeit. Hier ein Beispiel:

use IO::Tee;
my $log_filename = "log.txt";
my $log_filehandle;
open( $log_filehandle, '>>', $log_filename )
  or die("Can't open $log_filename for append: $!");
my $tee = IO::Tee->new( $log_filehandle, \*STDOUT );
select $tee;

Aber diese Lösung lässt STDERR gehen nur auf den Bildschirm und ich will STDERR gehen, um sowohl den Bildschirm und auch auf den gleichen log file, STDOUT geloggt. Ist das überhaupt möglich?

Meine Aufgabe ist es, meine build-Prozess angemeldet, aber ich möchte auch sehen, es auf meine IDE-Bildschirm als üblich. Und Protokollierung der Fehlermeldungen ist genauso wichtig wie die Protokollierung der glückliche Nachrichten. Und immer die Fehler protokolliert, um eine separate log-Datei ist keine gute Lösung.

InformationsquelleAutor Kurt W. Leucht | 2009-10-07

  1. 5

    Können Sie umleiten stderr zu stdout an die windows-shell-Ebene von etwas wie:

    perl stuff.pl 2>&1

    Sehen support-Artikel hier für das offizielle Wort.

    Dann könnten Sie diese stackoverflow-Antwort zu tun tee von der shell aus.

    perl stuff.pl 2>&1 | tee stuff.txt
    Das könnte den trick tun ... obwohl ich hoffte auf eine Lösung, die nicht verwenden, 3rd party, non-perl utilities ... noch die Befehlszeile. 🙂
    Es gibt ein perl-tee hier: robvanderwoude.com/tee.php, die helfen könnten, zu reduzieren-Abhängigkeiten 🙂
    Ich habe gesehen, es steht geschrieben: "Vertrauen Sie nie ein Perl-Skript, die print $_;"

    InformationsquelleAutor msandiford

  2. 13

    Benutze ich Log::Log4perl für Dinge wie diese. Es behandelt das senden der Ausgabe an mehrere Orte für Sie, einschließlich der Bildschirm, Dateien, Datenbanken oder was auch immer Sie mögen. Sobald man auch nur ein bisschen Komplex, das solltest du nicht tun, das Zeug auf Ihrem eigenen.

    Statt Druck zu filehandles, geben Sie einfach Log4perl eine Nachricht und Sie zahlen den rest. Ich habe eine kurze Einführung in Mastering Perl. Es basiert auf der Log4j, und die meisten der Sachen, die Sie tun können, Log4j, die Sie tun können, Log4perl, was auch bedeutet, dass, sobald Sie es wissen, wird es eine übertragbare Fähigkeit.

    Nicht Log4Perl von mir verlangen, zu drucken, um einen filehandle? Ich brauche alle Ausgaben umgeleitet werden, weil ich keine Kontrolle über die meisten print-Anweisungen ausgegeben werden, indem die Module::Build-Prozess.
    Ich habe mir Log4Perl, aber es schien nicht die Antwort auf die mail für mich, weil es mir erforderlich zu drucken, um einen filehandle.
    Auch, wenn Sie das Modul::Bauen Sie reden, lassen Sie uns das problem beheben. Ist deine Frage wirklich, "wie kann ich die erfassen Sie die Ausgabe von Module::Build?" Das ist alles, was ich tun in letzter Zeit. Sie können eine Unterklasse und überschreiben die log_* Methoden, das zu tun, was Sie wollen.
    Mit Log4perl, Sie befassen sich nicht mit filehandles, die auf der Benutzerebene. Ich bin mir nicht sicher, was Sie bei der Suche.
    Ich glaube nicht, dass ein beliebiger eindeutiger als die Antwort auf "Einige Modul druckt Nachrichten, die an STDERR. Wie kann ich den Trichter Sie zu Log::Log4perl?" in die Log4perl-FAQ. Lesen Sie es in der Log4perl-Verteilung.

    InformationsquelleAutor brian d foy

  3. 8
    use PerlIO::Util;
*STDOUT->push_layer(tee => ">>/dir/dir/file");
*STDERR->push_layer(tee => ">>/dir/dir/file");

    Obwohl ich verwenden Log::Dispatch ausgiebig, ich habe das oben zu melden, was tatsächlich auf dem Bildschirm angezeigt, in eine Datei.

    Wow. Diese Art gearbeitet. Es sieht aus wie es protokolliert sowohl den STDOUT und STDERR sowohl für den Bildschirm und auch die log-Datei, aber es gibt mir immer ein "perl.exe Anwendung Fehler" Dialogfeld zu sagen, dass ein unknown software exception aufgetreten ist.
    Habe nicht viel praktische Erfahrung mit der Windows-perl-Kompatibilität; ich habe es nur verwendet auf linux. Haben Sie versucht, Strawberry perl vs activestate perl? Hast du cygwin installiert?
    Ich bin mit ActiveState Perl-und Eclipse-EPIC-IDE. Kein cygwin.
    Scheint, dass es keine deb Paket PerlIO::Util für Ubuntu 🙁

    InformationsquelleAutor Oesor

  4. 3

    Weisen Sie einfach die STDERR filehandle ...

    use IO::Tee;
my $log_filename = "log.txt";
my $log_filehandle;
open( $log_filehandle, '>>', $log_filename )
  or die("Can't open $log_filename for append: $!");
my $tee = IO::Tee->new( $log_filehandle, \*STDOUT );
*STDERR = *$tee{IO};
select $tee;

    Sollte erwähnen, dass ich diese getestet auf Windows, funktioniert es, allerdings verwende ich StrawberryPerl.

    hmmmm. Dieser hatte nicht den STDERR lines zu meine log-Datei. Könnte sein, dass ich mit ActivePerl.
    funktioniert wie ein Charme, auch mit STDERR. Diese Lösung sollte auf der Oberseite sein imho. Auch positiv: IO::Tee verpackt für Ubuntu, hilft viel in die Bereitstellung auf diesen Systemen.

    InformationsquelleAutor glob

  5. 2

    Ich habe keinen windows-Rechner zu testen, aber vielleicht könnten Sie etwas tun, wie eine gebunden behandeln, die Druck auf STDOUT und log umleiten von STDOUT und STDERR?

    EDIT: die einzige Angst, Die ich habe, ist die Methode der Speicherung von STDOUT für die spätere Verwendung, ich habe noch eine zweite Möglichkeit für die Speicherung von STDOUT für die spätere Verwendung sollte der erste nicht funktionieren auf Windows. Beide funktionieren bei mir auf Linux.

    #!/usr/bin/perl

use strict;
use warnings;

tie *NEWOUT, 'MyHandle', 'test.log';
*STDOUT = *NEWOUT;
*STDERR = *NEWOUT;

print "Print\n";
warn "Warn\n";

package MyHandle;

sub TIEHANDLE {
  my $class = shift;
  my $filename = shift;

  open my $fh, '>', $filename or die "Could not open file $filename";

  ## Use one of these next two lines to store STDOUT for later use.
  ## Both work for me on Linux, if one does not work on Windows try the other.
  open(OLDSTDOUT, '>&STDOUT') or die "Could not store STDOUT";
  #*OLDSTDOUT = *STDOUT;

  my $self = {
    loghandle => $fh,
    logfilename => $filename,
    stdout => \*OLDSTDOUT,
  };

  bless $self, $class;

  return $self;
}

sub PRINT {
  my $self = shift;
  my $log = $self->{loghandle};
  my $stdout = $self->{stdout};
  print $log @_;
  print $stdout @_;
}

    InformationsquelleAutor Joel Berger

  6. 1

    versuchen :

    my logfh;
my $logfn = "some/path/to/file.log";
open ($logfh, '>',$logfn ) or die "Error opening logfile $logfn\n";
my $tee = IO::Tee->new( $logfh);
my $tee2 = IO::Tee->new( $logfh, \*STDOUT );
# all naked print statements will send output to log file
select($tee);
# all STDERR print statements will send output to console
*STDERR = *$tee2{IO};

    Alle print-Anweisungen, die nicht angeben, einen Datei-handle (das heißt, keine regelmäßigen Nachrichten) senden Ausgaben an die Protokolldatei an. Alle print-Anweisungen, die Verwendung der STDERR-Datei-handle (alle Fehler) senden Ausgabe auf die Konsole und log-Datei.

    InformationsquelleAutor Divyanand

  7. 0

    Du willst also STDERR zu Verhalten, wie STDOUT gehen, um sowohl den Bildschirm und die gleiche log-Datei? Kann dir nur dup STDERR mit

    open(STDERR, ">&STDOUT") or warn "failed to dup STDOUT:$!";

    (Ich weiß nicht, offhand, ob Sie würde dies tun, bevor oder nachdem der Aufruf an IO::tee->new).

    Ja, ich dachte das auch. Aber egal, wo in der code, den ich setzen Sie diese Zeile, wird es nicht die Fehlermeldungen in der log-Datei.

    InformationsquelleAutor mob

  8. 0

    Schrieb ich eine minimalistische perl-logger mit konfigurierbarer dynamic-Protokollierung geben Sie die folgende API: 

            use strict ; use warnings ; use Exporter;
        use Configurator ; 
        use Logger ; 


        #   anonymous hash !!!
        our $confHolder = () ; 

        sub main {

                # strip the remote path and keep the bare name
                $0=~m/^(.*)(\\|\/)(.*)\.([a-z]*)/; 
                my $MyBareName = $3; 
                my $RunDir= $1 ; 

                # create the configurator object 
                my $objConfigurator = new Configurator($RunDir , $MyBareName ); 
                # get the hash having the vars 
                $confHolder = $objConfigurator ->getConfHolder () ; 
                # pring the hash vars 
                print $objConfigurator->dumpIni();  

                my $objLogger = new Logger (\$confHolder) ; 
                $objLogger->LogMsg  (   " START MAIN " ) ;  

                $objLogger->LogMsg  (   "my \$RunDir is $RunDir" ) ; 
                $objLogger->LogMsg  (   "this is a simple message" ) ; 
                $objLogger->LogErrorMsg (   "This is an error message " ) ; 
                $objLogger->LogWarningMsg   (   "This is a warning message " ) ; 
                $objLogger->LogInfoMsg  (   "This is a info message " ) ; 
                $objLogger->LogDebugMsg (   "This is a debug message " ) ; 
                $objLogger->LogTraceMsg (   "This is a trace message " ) ; 
                $objLogger->LogMsg  (   "using the following log file " .  "$confHolder->{'LogFile'}" ) ; 
                $objLogger->LogMsg  (   " STOP MAIN \n\n" ) ; 

        } #eof main 



        #Action !!!
        main(); 

        1 ; 

        __END__

    InformationsquelleAutor Yordan Georgiev

Schreibe einen Kommentar