Opened by Flat75 at 2012-08-07 09:30
User since
2012-08-07
2 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
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)
Gruss,
Thomas
modedit Editiert von GwenDragon: Titel um Tk ergänzt
Last edited: 2012-08-07 14:14:41 +0200 (CEST)
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)