Ausgabe auf Konsole und gleichzeitg in Datei (gelöst) (Allgemeines zu Perl)

[thread]15751[/thread]

Ausgabe auf Konsole und gleichzeitg in Datei [gelöst]

Leser: 26

Articles: hide open all | hide show old branches

+13 replies
hansi66

2010-12-17 12:28

User since
2010-11-18
11 Artikel
BenutzerIn

Hallo, kann man mit "print" eine Konsolenausgabe auch gleichzeitig in eine Datei schreiben?

Besten Dank.
- +12 replies
- Gast wer
  
  2010-12-17 12:55
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
  
  #!/usr/bin/perl use strict; use warnings; use IO::Tee; my $tee_file="stdout.txt"; my $tee=new IO::Tee('>&STDOUT', ">$tee_file"); close(STDOUT); *STDOUT = $tee; print "Test1\n"; print "Test2\n"; print "Test3\n"; print "Test4\n";
  
  Last edited: 2010-12-17 13:03:17 +0100 (CET)
  - +7 replies
  - hansi66
    
    2010-12-17 13:11
    
    User since
    2010-11-18
    11 Artikel
    BenutzerIn
    
    Vielen Dank für die schnelle Antwort. Aber ich suche eine Lösung ohne zusätzliche Module. Gibts da was?
    - Taulmarill
      
      2010-12-17 13:20
      
      User since
      2004-02-19
      1750 Artikel
      BenutzerIn
      
      Wenn es kein Modul sein darf würde ich mir eine Funktion schreiben, an die ich die auzugebenden Strings übergebe und die dann die duale Ausgabe übernimmt.
      $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
    - havi
      
      2010-12-17 13:27
      
      User since
      2003-08-04
      2036 Artikel
      BenutzerIn
      
      http://www.perl-community.de/bat/poard/thread/6123
      Perl-Zeitung - http://perl-zeitung.at/
      Perl-Blog - http://usr-bin-perl.blogspot.com/
    - Mithaldu
      
      2010-12-17 14:17
      
      User since
      2010-10-28
      20 Artikel
      BenutzerIn
      
      Darf ich fragen warum du eine Lösung ohne Module suchst?
    - topeg
      
      2010-12-17 14:32
      
      User since
      2006-07-10
      2611 Artikel
      BenutzerIn
      
      Schau mal hier: msg #131830
      
      Oder unter Linux:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14
      
      #!/usr/bin/perl use strict; use warnings; my $logfile='out.log'; open(my $out, '|-', "/usr/bin/tee $logfile") or die("ERROR start tee: $!"); close(STDOUT); *STDOUT=$out; print "Test1\n"; print "Test2\n"; print "Test3\n"; print "Test4\n";
    - pq
      
      2010-12-17 17:05
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      warum das?
      das ist doch total unlogisch. das modul IO::Tee besteht aus einer einzigen datei.
      hast du generell etwas gegen pm-dateien oder wie erklärst du, dass du keine zusätzlichen module benutzen willst?
      die logische antwort wäre darauf, schau in das modul und programmiere es nach. oder kopiere es einfach. du kannst die datei dann auch MeinTee.blabla nennen. ein modul ist es dann immer noch.
      
      woher kommt das "ich will kein modul"?
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
    - havi
      
      2010-12-18 11:40
      
      User since
      2003-08-04
      2036 Artikel
      BenutzerIn
      
      Wie schon ein paar mal jetzt gepostet, warum eigentlich keine Module? Du machst dir ohne Module unnötig das Leben schwer...
      Perl-Zeitung - http://perl-zeitung.at/
      Perl-Blog - http://usr-bin-perl.blogspot.com/
  - +4 replies
  - bob.george
    
    2014-03-13 09:50
    User since
    2011-09-02
    104 Artikel
    BenutzerIn
    
    Guest wer
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
    
    #!/usr/bin/perl use strict; use warnings; use IO::Tee; my $tee_file="stdout.txt"; my $tee=new IO::Tee('>&STDOUT', ">$tee_file"); close(STDOUT); *STDOUT = $tee; print "Test1\n"; print "Test2\n"; print "Test3\n"; print "Test4\n";
    
    Wie kann ich denn sowas wieder rückgängig machen? Mit
    
    Code: (dl )
    
    select(STDOUT)
    
    ?
    - +3 replies
    - Muffi
      
      2014-03-13 10:01
      
      User since
      2012-07-18
      1465 Artikel
      BenutzerIn
      
      Dann würd ich schaun, ob ichs vielleicht garnicht erst umsetzen muss.
      1 + 1 = 10
      - +2 replies
      - bob.george
        
        2014-03-13 11:03
        
        User since
        2011-09-02
        104 Artikel
        BenutzerIn
        
        2014-03-13T09:01:30 Muffi
        Dann würd ich schaun, ob ichs vielleicht garnicht erst umsetzen muss.
        
        Es gibt halt in meinem Skript Bereiche wo ich es brauch und welche wo mir die Ausgabe auf der Konsole reicht.
        
        Muffi
        
        2014-03-13 11:11
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Dann benutz halt print für die Ausgabe auf die Konsole und was anderes für die Ausgabe wo anders.
        Dann muss ich mir beim Code anschaun nicht eine State-Maschine aufmalen um rauszufinden, was denn der print an der Stelle gerade macht.
        Last edited: 2014-03-13 11:13:16 +0100 (CET)
        1 + 1 = 10

View all threads created 2010-12-17 12:28.