Rückgabewerte von Programm abfragen mit pipe (Allgemeines zu Perl)

[thread]13290[/thread]

Rückgabewerte von Programm abfragen mit pipe

Leser: 14

Articles: hide open all | hide show old branches

+6 replies
Gast rommi

2009-03-28 01:20
Hallo Perlfans,

ich habe ein Programm (ich nenne es mal Programm "A") dass, wenn man es startet, permanent einen Output auf STDOUT produziert. Jetzt möchte ich mit einem Perl-Programm (ich nenne es mal Programm "B") diesen Output auf STDOUT abfangen und weiter verarbeiten. Ich denke ich bin mit open und Pipe auf dem richtigen Weg aber leider hab ich es nicht lösen können den Output sofort weiter zuverarbeiten.

Ich habe es mal versucht mit zwei Perl-Programmen. A.pl produziert den Output und B.pl soll den Output sofort verarbeiten. Sobald ich aber den sleep in A.pl erhöhe steht das Programm..
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

#XXXXXXXXXXXXXXXXX Code von A.pl XXXXXXXXXXXXXXXXX use Time::HiRes qw(sleep); $out = 1; while(1==1) { sleep 0.01; #### schreib nach stdout print "\n$out"; $out++; #### fang wieder bei 0 an if($out > 50){$out = 1;} } #XXXXXXXXXXXXXXXXX Code von B.pl XXXXXXXXXXXXXXXXX open(FH, "c:\\ccc.pl |") or die "Open-Fehler...\n"; while($tmp=<FH>) { chomp($tmp); #### Output nach bestimmten Wert fragen if($tmp eq 25){print "\nTreffer";} print "\n$tmp"; } close (FH);
Ich möchte eigentlich jeden Output, der von Programm A aktuell auf STDOUT ausgegeben wird mit Programm B prüfen und ggfs. den Output von A sofort verarbeiten können. Danke im voraus, Gruss rommi

PS: Hab Windows-XP im Einsatz
- +5 replies
- FoolAck
  
  2009-03-28 09:00
  User since
  2008-05-02
  69 Artikel
  BenutzerIn
  Ich versteh nicht genau was das/dein Problem ist.
  
  Quote
  Sobald ich aber den sleep in A.pl erhöhe steht das Programm..
  
  ... Um wie viel erhöht? Jahre? Sekunden? Minuten? Und welches Programm? A oder B?
  
  Generell zwei Tipps:
  
  Code (perl): (dl )
  
  1 2
  
  use strict; use warnings;
  
  Immer benutzen.
  
  Dann zu deinem Problem noch eine Idee, pack mal an den Anfang des Scripts ein $|++. Damit wird output-buffering ausgeschaltet.
  - +4 replies
  - Gast rommi
    
    2009-03-28 11:39
    Hallo FoolAck, danke für deine Antwort!
    
    Also erstmal ist mir aufgefallen dass ich im Code vom B.pl einen Fehler drin habe. Hab da noch einen "alten" Dateinamen drin stehn. Natürlich will ich ja zu A.pl ne pipe machen, also muss die erste Zeile folgendermassen lauten:
    
    Code: (dl )
    
    open(FH, "c:\\A.pl |") or die "Open-Fehler...\n";
    
    Mit "sleep in A.pl erhöhe" meine ich z.B. auf eine Sekunde, also "sleep 0.1" oder auf "sleep 1".
    Wenn ich dann B.pl starte bleibt B.pl quasi hängen d.h. es blinkt minutenlang nur der Cursor und der Output von A.pl wird nicht verarbeitet. Mit $|++ ändert sich leider nix.
    
    Ich weiss nicht genau was da passiert aber scheinbar wird da ewig gepuffert bis dann B.pl die Daten von A.pl zum verarbeiten erhält. Wenn ich den sleep-Wert aber auf sehr niedrig setze z.B. auf 0.001 dann rennt B.pl gleich los verarbeitet den Output. Eigentlich wollte ich ja folgendes erreichen:
    1. B.pl soll A.pl starten
    2. A.pl soll z.B. jede Sekunde (je nachdem welchen Wert ich einstelle) auf stdout einen Output ausgeben
    3. B.pl soll den Output sofort erhalten und mit dem Output irgendwas machen
    
    Ich hoffe ich konnte dass Problem genauer beschreiben, danke
    und viele Grüsse rommi
    - +3 replies
    - nepos
      
      2009-03-28 14:04
      
      User since
      2005-08-17
      1420 Artikel
      BenutzerIn
      
      Ich denke mal, dass du in A.pl Autoflush aktivieren musst:
      
      Code: (dl )
      
      STDOUT->autoflush(1)
      
      oder so ähnlich.
      - Gast rommi
        
        2009-03-28 14:33
        
        Hallo nepos, danke für den Tip. Das war der richtige Hinweis, jetzt funzt es!
        
        gruss, rommi
      - pq
        
        2009-03-28 15:06
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        2009-03-28T13:04:34 nepos
        
        Code: (dl )
        
        STDOUT->autoflush(1)
        
        das ist eigentlich genau das, was $|++ auch macht. komisch, dass nur eins von beiden funktioniert. naja, windows-perl...
        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

View all threads created 2009-03-28 01:20.