Perl Programmteile mitloggen (Allgemeines zu Perl)

[thread]18674[/thread]

Perl Programmteile mitloggen

Tags: perl5 Ähnliche Threads

Leser: 24

Articles: hide open all | hide show old branches

+6 replies
PROXEN

2013-10-14 22:12

User since
2013-07-23
21 Artikel
BenutzerIn

Hallo,

ich rufe von einem Perl Programm aus ein anderes auf (mit system()).
Dort rufe ich mit open ein Shell Programme auf.
Wie kann ich jetzt Teile des ganzen Outputs mitloggen, also der Output von open und ein paar von den prints?

thx
- Linuxer
  
  2013-10-14 22:37
  
  User since
  2006-01-27
  3870 Artikel
  HausmeisterIn
  
  Führe das zweite Program nicht mit system() aus, sondern mit Backticks oder mit qx().
  Damit kannst Du STDOUT des zweiten Kommandos einfangen.
  Wenn's mehr Möglichkeiten haben soll (z.B. STDERR auch einfangen), dann schau vielleicht mal nach IPC::Open3
  
  Oder - je nach dem, wie Du system() verwendest - leite die Ausgabe des Kommandos in eine temporäre Datei oder FIFO um und lese diese anschließend aus und danach löschst Du das Ding wieder).
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
- +4 replies
- bianca
  
  2013-10-15 06:59
  
  User since
  2009-09-13
  6977 Artikel
  BenutzerIn
  
  Ist das Windows?
  Dann füge dem Programmaufruf mal ein >ausgabe.txt an und schaue, ob was in der Datei ist. Also Beispiel: programmname >ausgabe.txt ggf. weitere Parameter
  Für STDERR kannst du es mit 2>stderr.txt zusätzlich oder anstatt versuchen.
  Denn auf Windows kann man mit Perl kein echtes IPC aufbauen. Habe das in vielen Threads kürzlich schmerzvoll gelernt :)
  10 print "Hallo"
  20 goto 10
  - +3 replies
  - PROXEN
    
    2013-10-20 10:44
    User since
    2013-07-23
    21 Artikel
    BenutzerIn
    
    Hallo,
    
    eigentlich schaut das so aus Prog1 ruft Prog2 auf, wie kann ich jetzt einfach Teile des Programms mitloggen. Am liebsten wäre mir wenn ich das irgendwie aktivieren, deaktivieren aktivieren etc. im Programm könnte, sodaß nur bestimmte Teile mitgeloggt werden, bestimmte prints, open Aufrufe etc. gleichzeitig sollte aber alles in der Console angezeigte werden.
    sowas perl prog1.pl > log.txt geht nicht - da hab ich keine Consolenanzeige mehr da geht alles in die Datei?
    
    Prog1:
    
    Code: (dl )
    
    1 2 3 4 5
    
    use strict; use warnings; print "main program\n"; my @args = ("/usr/bin/perl","prog2.pl", "Hallo"); system(@args) or die "system failed: $?";
    
    Prog2:
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12
    
    use strict; use warnings; my $var = $ARGV[0]; print $var; open(PS,"ssh -t test\@10.0.0.2 'ls -ltr' |") || die "Error: $!n"; while(<PS>) { print "$_"; }
    
    thx
    - bianca
      
      2013-10-20 17:23
      
      User since
      2009-09-13
      6977 Artikel
      BenutzerIn
      
      Wenn beide Programme von dir sind bau doch an den gewünschten Stellen Logausgaben ein. Von außen kann man das nicht punktuell steuern.
      10 print "Hallo"
      20 goto 10
    - betterworld
      
      2013-10-20 19:04
      
      User since
      2003-08-21
      2613 Artikel
      ModeratorIn
      
      Wenn das zum Debuggen gebraucht wird, kannst du dir mal das Programm strace anschauen.
      Lieblingsmodule: IPC::System::Simple, Path::Class

View all threads created 2013-10-14 22:12.