Konsolenanwendung starten und Ausgabe auslesen (Allgemeines zu Perl)

[thread]16497[/thread]

Konsolenanwendung starten und Ausgabe auslesen

Tags: perl5 Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

+5 replies
TheMic

2011-07-06 11:04
User since
2009-12-29
15 Artikel
BenutzerIn
Hallo,

ich hoffe ihr könnt mir helfen. Ich will mit einem Perl-Skript mehrmals eine .exe mit unterschiedlichen Parametern aufrufen und die Konsolenausgabe der aufgerufenen .exe auslesen uns auswerten. Leider habe ich es noch nicht geschafft die Ausgabe der .exe auszulesen und in eine Variable zu speichern.

Folgende Varianten habe ich schon probiert:
Code (perl): (dl )

1 2 3

open(ENCODER, "Encoder.exe -i test -o _test -t4 $t4 |") || die $!; print "\nOUT: \"" . <ENCODER> . "\"\n"; close(ENCODER) || die $!;
Hier wird zwar die Ausgabe der Executable in der Konsole angezeigt, aber vor dem print. Und zwischen den Quotes steht nichts.
Code: (dl )

$output = qx(Encoder.exe -i test -o _test -t4 $t4);
Auch hier ist $output leer und die Ausgabe wird trotzdem angezeigt

Was mache ich falsch?
- +2 replies
- renee
  
  2011-07-06 11:14
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  Ich vermute mal, dass die .exe die Ausgabe nicht auf STDOUT schreibt, sondern auf STDERR. Mach mal
  
  Code (perl): (dl )
  
  $output = qx(Encoder.exe -i test -o _test -t4 $t4 2>&1);
  
  Das 2>&1 leitet STDERR nach STDOUT um...
  OTRS-Erweiterungen (http://feature-addons.de/)
  Frankfurt Perlmongers (http://frankfurt.pm/)
  --
  
  Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
  Perl-Entwicklung: http://perl-services.de/
  - TheMic
    
    2011-07-06 11:26
    User since
    2009-12-29
    15 Artikel
    BenutzerIn
    
    Folgendes hat jetzt funktioniert:
    
    Code (perl): (dl )
    
    $output = qx("Encoder.exe -i test -o _test -t4 $t4 2>&1");
    
    Danke!
- +2 replies
- TheMic
  
  2011-07-06 21:21
  User since
  2009-12-29
  15 Artikel
  BenutzerIn
  Ok, ich habe jetzt noch ein Problem. Da sich das Programm, dass ich aufrufe bei einigen Parametern anscheinend aufhängt, musste ich eine Timeout-Funktion einbauen.
  
  Dies sieht jetzt so aus:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
  
  $pid = fork(); $timeout = 3; if($pid) { local $SIG{ALRM} = sub { die "TIMEOUT" }; alarm $timeout; eval { waitpid( $pid, 0 ); }; alarm 0; if ( $@ && $@ =~ m/TIMEOUT/ ) { $output = ""; } } else { $output = qx("Encoder.exe -i test -o _test -t4 $t4 2>&1"); exit(0); }
  
  Ich habe jetzt aber festgestellt, dass bei Durchläufen des Codes Threads erstellt werden, die nach dem Durchlauf nicht geschlossen werden. Könnte dies an der Funktion qx liegen? Wenn ja, wie kann ich das umgehen?
  - topeg
    
    2011-07-07 02:43
    
    User since
    2006-07-10
    2611 Artikel
    BenutzerIn
    
    Wenn du einen Prozess forkst bekommst du zwei unabhängige Prozesse, die keinerlei Variablen miteinander teilen. Du kannst also nicht in einem Prozess in $output schreiben und hoffen, das das Ergebnis im anderen Prozess ankommt.
    Außerdem wartet waitpid darauf, das ein Prozess sich selber beendet. Willst du es erzwingen musst du kill nutzen. Das würde in deinem Beispiel auch nicht unbedingt zu einem Ergebnis führen, da ein über qx gestarteter Kindprozess weiter laufen kann auch wenn der Elternprozess beendet wurde.
    
    Hier ein paar Beispiele wie du das machen kannst:
    
    Am einfachsten ist es mit IPC::Run:
    more (4.6kb)
    Oder über open:
    more (7.2kb)
    oder über eine temporäre Datei:
    more (14.3kb)
    
    Man kann anstatt einer temporären Datei auch eine Pipe nutzen. Da ist es aber einfacher IPC::Run zu nutzen. Das macht es intern so, ist aber System unabhängig programmiert (Windows macht Probleme bei Pipes).
    
    EDIT:
    Hier mit einer Pipe:
    more (13.2kb)
    Das Problem ist, das manche Programme darauf achten ob STDOUT ein Terminal ist. Wenn dem nicht so ist kann die Ausgabe verloren gehen, da sie gepuffert wird.
    Mit einem virtuellem Terminal umgeht man das Problem.
    Hier ein Beispiel mit IO::Pty als virtuelles Terminal:
    more (13.7kb)
    Last edited: 2011-07-07 05:50:26 +0200 (CEST)

View all threads created 2011-07-06 11:04.