Output in Konsole und in Datei (Allgemeines zu Perl)

[thread]13782[/thread]

Output in Konsole und in Datei

Leser: 26

Articles: hide open all | hide show old branches

+14 replies
roli

2009-07-25 21:05

User since
2004-12-31
424 Artikel
BenutzerIn

Hi,

ich würde den Output meines Scriptes gerne auf der Konsole sehen, und gleichzeitig in einer Datei "archivieren".
Unter Linux nehme ich für sowas "tee", diesmal muß das Script aber auch unter Windows laufen, da habe ich aber keinn "tee". Hierfür gibt's doch sicher auch eine Möglichkeit mit Perl Boardmitteln, oder?

Danke
Roland
--
"Steh vorn, während du fragst;
sitzen soll, wer antwortet."
Aus "Die Edda des Snorri Sturluson" "Gylfis Täuschung" Strophe 2
- +13 replies
- GwenDragon
  
  2009-07-25 21:47
  
  User since
  2005-01-17
  14748 Artikel
  Admin1
  
  Dann schau doch mal in der Perl-Modulbibliothek CPAN unter tee
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +12 replies
  - roli
    
    2009-07-25 22:28
    
    User since
    2004-12-31
    424 Artikel
    BenutzerIn
    
    "Is nich wahr", das es tee auch als Modul geben könnte ist mir erst gar nicht in den Sinn gekommen.
    Das ist mal immerhin eine Möglichkeit, dafür schon mal danke.
    Gibt es vielleicht auch eine andere Lösung, das ich quasi die Umleitung direkt in mein Script einbaue? Bisher kommt's halt auch immer wieder mal vor, das ich das Script ohne tee aufrufe, und dann ist der Output eben futsch. Wenn ich das jetzt direkt im Script drinnen hätte wäre meiner Vergesslichkeit damit ein großer Dienst erwiesen.
    Roland
    --
    "Steh vorn, während du fragst;
    sitzen soll, wer antwortet."
    Aus "Die Edda des Snorri Sturluson" "Gylfis Täuschung" Strophe 2
    - +11 replies
    - GwenDragon
      
      2009-07-25 22:35
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      Nimm doch File::Tee oder schau einfach mal in deren Source, da siehst du wie die Umleitung geschieht. ;)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +10 replies
      - roli
        
        2009-07-26 21:01
        
        User since
        2004-12-31
        424 Artikel
        BenutzerIn
        
        Hi GwenDragon,
        
        das sieht gut aus, ich werd's morgen gleich mal ausprobieren.
        
        Vielen Dank
        Roland
        --
        "Steh vorn, während du fragst;
        sitzen soll, wer antwortet."
        Aus "Die Edda des Snorri Sturluson" "Gylfis Täuschung" Strophe 2
        
        +9 replies
        
        havi
        
        2009-07-27 11:00
        
        User since
        2003-08-04
        2036 Artikel
        BenutzerIn
        
        Hi,
        
        so etwas kann man sich auch ganz leicht selbst bauen...
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12
        
        sub pprint; pprint # ... sub pprint { # ... print FILEHANDLE @_; print @_; }
        
        Perl-Zeitung - http://perl-zeitung.at/
        Perl-Blog - http://usr-bin-perl.blogspot.com/
        
        +8 replies
        
        GwenDragon
        
        2009-07-27 13:24
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Ja, sicher, das geht auch.
        Aber wer will denn bitte immer pprint schreiben. ;)
        
        Wenn schon, dann eher so, obwohl das print auch komisch geschrieben wird:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
        
        #!/usr/bin/perl use strict; use warnings; my $REDIR; sub print; sub tee; sub tee { $REDIR = shift; } sub print { CORE::print $REDIR @_; CORE::print @_; } tee(*STDERR); ::print 123;
        
        Auch nicht besonders shon, aber machbar.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +7 replies
        
        roli
        
        2009-07-27 19:40
        
        User since
        2004-12-31
        424 Artikel
        BenutzerIn
        
        Hi,
        
        ich hab's jetzt ausprobiert, File::Tee ist eigentlich das was ich suche, nur wird nicht alles umgeleitet.
        Hintergrung: Ich würde gerne einige Testscripte unbeaufsichtigt laufen lassen. Dabei wird aber soviel Output erzeugt, das der "Scroll-Back" der Konsole/Dos-Box nicht ausreicht. Wenn ich beispielsweise
        
        Code: (dl )
        
        mein_testscript.pl >./out.txt 2>/err.txt
        
        aufrufe, landet alles wie gewünscht in den Dateien. Nachdem ich jetzt
        
        Code (perl): (dl )
        
        1 2
        
        tee(STDOUT, '>', 'stdout.txt'); tee(STDERR, '>', 'stderr.txt');
        
        eingefügt habe, steht alles in den beiden Dateien AUSSER dem Output von der Funktionen aus Test::More etc. also das "ok ..." oder "not ok ...". Geht das überhaupt, oder muß ich mir ein "Wraper-Script" um mein Testscript bauen?
        
        Danke
        Roland
        --
        "Steh vorn, während du fragst;
        sitzen soll, wer antwortet."
        Aus "Die Edda des Snorri Sturluson" "Gylfis Täuschung" Strophe 2
        
        roli
        
        2009-07-28 14:41
        
        User since
        2004-12-31
        424 Artikel
        BenutzerIn
        
        Hi,
        
        der Wrapper ist geschrieben und arbeitet wie erwartet. Warum File::Tee das im Script selber nicht kann ist mir zwar noch nicht klar, aber das Problem ist gekößt.
        
        Danke
        Roland
        --
        "Steh vorn, während du fragst;
        sitzen soll, wer antwortet."
        Aus "Die Edda des Snorri Sturluson" "Gylfis Täuschung" Strophe 2
        
        +5 replies
        
        GwenDragon
        
        2009-07-28 15:00
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Du musst halt mal analysieren, wohin die Testmodule schreiben zur Ausgabe. ;)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +4 replies
        
        roli
        
        2009-07-28 15:21
        
        User since
        2004-12-31
        424 Artikel
        BenutzerIn
        
        Hi,
        
        das ganze landet schon in/auf STDOUT und STDERR. Wenn ich das Script wie folgt aufrufe:
        
        Code: (dl )
        
        script.pl 1>out.txt 2>err.txt
        
        ist alles wie erwartet in den beiden Dateien. Wenn ich aber die Umleitung mittles File::Tee im Script mache landet der Output der Test Funktionen nicht in den Dateien.
        Roland
        --
        "Steh vorn, während du fragst;
        sitzen soll, wer antwortet."
        Aus "Die Edda des Snorri Sturluson" "Gylfis Täuschung" Strophe 2
        
        +3 replies
        
        GwenDragon
        
        2009-07-28 16:47
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Leitest du auch zum frühestmöglich Zeitpunkt um? In einem BEGIN? Vielleicht leigt es daran.
        Ich kann es gerade nicht testen, weil ich auf einer externen System bin, auf der ich nichts installieren kann. ;)
        
        Wohin gibst du denn bei Test:… aus? Verwendest du die Methode output() des Test-Moduls?
        Last edited: 2009-07-28 16:53:59 +0200 (CEST)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        roli
        
        2009-07-29 10:33
        
        User since
        2004-12-31
        424 Artikel
        BenutzerIn
        
        2009-07-28T14:47:00 GwenDragon
        Leitest du auch zum frühestmöglich Zeitpunkt um? In einem BEGIN? Vielleicht leigt es daran.
        
        Noop, es stand zwar "recht weit oben" im Code, aber halt nicht im BEGIN-Block.
        
        2009-07-28T14:47:00 GwenDragon
        Wohin gibst du denn bei Test:… aus? Verwendest du die Methode output() des Test-Moduls?
        
        Ich verwende is_ok und co. "einfach so", ohne output() oder sonstiges.
        Roland
        --
        "Steh vorn, während du fragst;
        sitzen soll, wer antwortet."
        Aus "Die Edda des Snorri Sturluson" "Gylfis Täuschung" Strophe 2
        
        roli
        
        2009-07-30 09:52
        
        User since
        2004-12-31
        424 Artikel
        BenutzerIn
        
        Hi,
        
        2009-07-28T14:47:00 GwenDragon
        Leitest du auch zum frühestmöglich Zeitpunkt um? In einem BEGIN? Vielleicht leigt es daran.
        
        Jetzt steht's im BEGIN-Block, und nun geht es auch ohne den Wrapper.
        
        Danke
        Roland
        --
        "Steh vorn, während du fragst;
        sitzen soll, wer antwortet."
        Aus "Die Edda des Snorri Sturluson" "Gylfis Täuschung" Strophe 2

View all threads created 2009-07-25 21:05.