Tk: Wie mache ich ein automatisches Window Update ? (Graphische Oberflächen)

[thread]17640[/thread]

Tk: Wie mache ich ein automatisches Window Update ?

Tags: perl5 GUI Tk Update Ähnliche Threads

Leser: 25

Articles: hide open all | hide show old branches

+6 replies
Flat75

2012-08-07 09:30
User since
2012-08-07
2 Artikel
BenutzerIn
Hallo zusammen,

ich versuche mich gerade verstärkt an Perl und bin immer wieder echt begeistert von den Möglichkeiten, die ich damit habe ... :-)

Leider hapert es noch an der Erfahrung und daher muss ich mich mal hilfesuchend mit einigen "Basic" Fragen an euch wenden.

Aktuell versuche ich mir einen kleinen "graphischen" Print Queue Monitor zu basteln. Dieser überwacht im Prinzip lediglich ein bestimmtes Verzeichnis und zählt die dort enthaltenen Dateien. Die Anzahl der Dateien wird dabei anhand eines Balkens dargestellt.

Soweit klappt auch alles super ...
... allerdings nur 1x, denn das Fenster macht kein automatisches Update.

Kann mir da jemand weiterhelfen ?
Die Anzahl der Dateien soll meinetwegen sagen wir mal alle 5 Sekunden abgefragt und das Fenster automatisch refreshed werden.

(Anm.: Scripte unter Linux / AIX)
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

#!/usr/bin/perl -w use strict; use Tk; my $window= MainWindow->new; my $c1 = $window->Canvas(-background => 'saddlebrown', -width => '350', -height => '150')->pack; $c1->createText(175, 10, -fill => 'orange', -text => 'Print Queue Monitor'); $c1->createLine(0, 20, 351, 20, -fill => 'orange'); my $jobs01=`ls -all /directory/ | wc -l | awk \'{print \$1}\'`; chomp ($jobs01); $jobs01 +=88; $c1->createLine(88, 65, $jobs01, 65, -width => '10', -fill => 'green'); $c1->createText(45, 65, -fill => 'orange', -text => 'Spooler 1'); MainLoop;
Gruss,
Thomas

modedit Editiert von GwenDragon: Titel um Tk ergänzt
Last edited: 2012-08-07 14:14:41 +0200 (CEST)
- +5 replies
- Raubtier
  
  2012-08-07 10:47
  User since
  2012-05-04
  1083 Artikel
  BenutzerIn
  Ich habe zwar keine Ahnung von Tk, aber der erste Suchmaschinentreffer liefert einen Hinweis auf:
  
  perldoc Tk::after
  $widget->repeat(ms,callback)
  
  Und du hast ne interessante Art Dateien zu zählen. Was spricht gegen
  
  Code: (dl )
  
  1 2 3
  
  opendir my $dh, "/dir"; my $anzahl_dateien = () = readdir $dh; closedir $dh;
  
  Last edited: 2012-08-07 10:50:25 +0200 (CEST)
  - +2 replies
  - Molaf
    
    2012-08-07 13:03
    User since
    2007-10-11
    119 Artikel
    BenutzerIn
    
    Hallo,
    
    Code (perl): (dl )
    
    my $anzahl_dateien = () = readdir $dh;
    
    hier sollte $anzahl_dateien aber um 2 zu hoch sein, readdir liefert ja auch noch '.' und '..' mit.
    - Raubtier
      
      2012-08-07 13:34
      
      User since
      2012-05-04
      1083 Artikel
      BenutzerIn
      
      2012-08-07T11:03:51 Molaf
      Hallo,
      
      Code (perl): (dl )
      
      my $anzahl_dateien = () = readdir $dh;
      
      hier sollte $anzahl_dateien aber um 2 zu hoch sein, readdir liefert ja auch noch '.' und '..' mit.
      
      Und sind das keine Einträge im Verzeichnis?
      Ich habe, da ls -all im Post zu finden war, das auch so nachgebaut (warum eigentlich überhaupt -all, wenn doch vermutlich nur -a1 gemeint war - und warum überhaupt ein doppel-l und wozu noch das awk?). Ein ls -a liefert alle Dateien aus, also auch . und .., weswegen ich beim readdir diese auch nicht extra entfernt habe.
      
      Gang im Gegenteil sogar, denn wenn man ein wc auf das ls -l macht, wird auch noch die Zeile "insgesamt NN" am Anfang mitgezählt. D.h. das readdir gibt schon 1 weniger aus als im Original.
      Last edited: 2012-08-07 13:37:37 +0200 (CEST)
  - +2 replies
  - GUIfreund
    
    2012-08-07 13:26
    User since
    2011-08-08
    559 Artikel
    BenutzerIn
    
    2012-08-07T08:47:12 Raubtier
    perldoc Tk::after
    $widget->repeat(ms,callback)
    
    An Flat75:
    Dabei ist callback eine Referenz auf die Sub, welche den alten Balken löscht, die Dateien zählt und einen neuen Balken zeichnet. Etwa so:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10
    
    $window->repeat(5000, \&showcount); ....... sub showcount { $balk and $c1->delete($balk); my $jobs01 = ...; chomp ($jobs01); $balk = $c1->createLine(88, 65, $jobs01+88, 65, -width => '10', -fill => 'green'); return; }
    
    (nicht getestet). Dabei würde ich $balk erst mal vor sub showcount deklarieren, damit du dir keine Gedanken darum machen musst, wie du im Callback darauf zugreifen kannst. Die Übergabe von Parametern an ein Callback kannst du dir als Übungsaufgabe aufheben.
    
    Randbemerkung: Der übliche Name für das MainWindow ist $mw.
    Gruß
    GUIfreund
    - Flat75
      
      2012-08-08 09:14
      
      User since
      2012-08-07
      2 Artikel
      BenutzerIn
      
      Hallo zusammen,
      
      soweit schon mal vielen Dank für die Infos, werde mich da gleich mal durch probieren ...
      
      Vielleicht noch kurz was um das "Rätsel" des merkwürdigen Filecount strings zu lösen ;-)
      
      Ich komme eigentlich aus der Unix Shell Programmierung und fange mit Perl gerade erste an. Somit kommt es oft vor, dass ich anfange zu "schummeln", wenn ich im Perl nicht weiter weiß und mir einfach dann das, was ich brauche anhand z.B. von "system ()" über Shell Kommandos ins Perl Script rein ziehe ... ;-)
      
      Der "ls -all" ist, da gebe ich euch vollkommen recht, mit dem zweiten "l" vollkommen sinnfrei. Ist einfach eine Angewohnheit, die mal aus einer Eselsbrücke entstanden ist, weil der ls -al quasi "alle" i.d.R. benötigten Informationen der Dateien anzeigt und alle = all ... ;-)
      
      Die Variante über "opendir ... closedir" kannte ich beispielsweise so im Perl nicht, weshalb ich da wieder den system () bzw. in dem Fall die Alternative über ` ... ` verwendet hatte, um mit mir bekannten Shell Befehlen zum Ziel zu kommen.
      
      Bin aber bestrebt diese Ausnahmen nach und nach immer mehr zu reduzieren. :-)
      
      Gruss,
      Thomas

View all threads created 2012-08-07 09:30.