Tk --> parallel zur Konsolenanwendung (gelöst) (Graphische Oberflächen)

[thread]16512[/thread]

Tk --> parallel zur Konsolenanwendung [gelöst]

Tags: perl5 GUI Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

+9 replies
Lebowski

2011-07-10 15:25

User since
2011-06-27
19 Artikel
BenutzerIn

Hi,
ich habe ein perlscript das ohne GUI arbeitet. Im wesentlichen liest es Dateien aus und führt entsprechend des Inhaltes etwas aus.
Da jede Zeile der Datei etwas gleichlang bei der Abarbeitung braucht, wollte ich nun eine kleine TK-Anwendung basteln, die einen Ladebalken besitzt, der mir den gegenwärtigen Status anzeigt.
Nun meine Frage, wie ich das prinzipiell anstelle:

* Die GUI soll ein eigenständiges Script sein, ich möchte mein existierendes Script nicht abändern
* Wie kann ich aus dem Script das Guiscript auslesen, so dass beide parallel arbeiten?
* Wie kann ich Informationen von dem einen Script an das andere übermitteln?

Vielleicht kann mir jemand weiterhelfen.

Lebowski
- +8 replies
- MatthiasW
  
  2011-07-10 17:06
  User since
  2008-01-27
  367 Artikel
  BenutzerIn
  Dazu würde ich $mw->fileevent(...) benutzen, sodass die Aktualisierungsinformationen per STDIN übermittelt werden können. Ein funktionierendes Beispielskript:
  more (9.9kb)
  Die Ausgabe deines Skripts muss an dieses hier umgeleitet werden, und der Form $A/$N entsprechen.
  
  Beispielaufruf:
  
  Code: (dl )
  
  $ perl -E '$|++; for (1..10) { say "$_/10"; sleep 1 }' | perl gui.pl
  
  Hier musste ich noch autoflush setzen, allerdings weiß ich nicht genau warum. Vielleicht könnte da jemand was zu sagen, der mehr Ahnung hat?
  
  MfG
  perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
  - +7 replies
  - Lebowski
    
    2011-07-10 18:02
    
    User since
    2011-06-27
    19 Artikel
    BenutzerIn
    
    Hi und danke,
    ich habe in der Zwischenzeit ein wenig rumgewerkelt und eine andere Lösung gefunden. Das Script schreibt ein Enviromentvariable, die es bei der Abarbeitung stets erhöht. Das GUI-Prg liest diese dann über repeat(...) aus und steuert den Ladebalken.
    
    Kann man das "so machen" oder gibt's da einige Nachteile.
    
    Lebowski
    - +6 replies
    - Gast wer
      
      2011-07-10 18:38
      
      Unter Linux wird das nicht funktionieren, da jeder Prozess eine eigene Kopie der Umgebungsvariablen hat.
      
      Du kannst aus dem GUI-Script auch das Script als Kindprozess starten und die Ausgebe im GUI-Script auswerten.
      Last edited: 2011-07-10 19:18:00 +0200 (CEST)
      - +3 replies
      - Lebowski
        
        2011-07-10 19:40
        
        User since
        2011-06-27
        19 Artikel
        BenutzerIn
        
        Hallo,
        
        hast du ein Beispiel dazu?
        
        Danke, lebowski
        
        +2 replies
        
        topeg
        
        2011-07-10 22:28
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Ein Beispiel auf dem Terminal. Es wird ein Fortschrittsbalken erzeugt, der 0-100% geht. Dahinter wird als Spielerei die aktuelle Zeit angezeigt. Die Ausgabe wird wahrscheinlich nur in einem richtigen Terminal gut funktionieren. (Ich benutze "\r" um den Kursor wieder an den Anfang der Zeile zu setzen)
        more (12.5kb)
        Last edited: 2011-07-11 00:05:38 +0200 (CEST)
        
        Lebowski
        
        2011-07-11 15:04
        
        User since
        2011-06-27
        19 Artikel
        BenutzerIn
        
        Vielen Dank,
        werde es in kürze einmal ausprobieren und dann evtl. hier wieder posten.
        
        Lebowski
      - +2 replies
      - MatthiasW
        
        2011-07-11 16:59
        
        User since
        2008-01-27
        367 Artikel
        BenutzerIn
        
        Guest wer
        Unter Linux wird das nicht funktionieren, da jeder Prozess eine eigene Kopie der Umgebungsvariablen hat.
        
        Stattdessen kann man natürlich eine Datei zur Kommunikation verwenden.
        perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
        
        Lebowski
        
        2011-07-15 14:51
        
        User since
        2011-06-27
        19 Artikel
        BenutzerIn
        
        Hi,
        
        die "Datei" habe ich nun genommen. War das einfachste und stabilste
        
        Vielen Dank

View all threads created 2011-07-10 15:25.