Opened by BratHering at 2005-09-19 15:59
User since
2003-08-04
5873 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5873 Artikel
ModeratorIn
Ein Beispiel ist das Erstellen eines eigenen Events bei einem selbstgeschriebenen Splashscreen:
($splash fungiert hier als $mw)
Hier wird zunächst die Initialisierungsfunktion laufen gelassen, dann setze ich Event ab.
Hier kommt ein Beispiel zu File-Events:
Es wird ein File-Event erzeugt, das die Lesbarkeit des Dateihandels überprpüft. Dieses Dateihandel muss offen sein, Lesbarkeit bedeutet hier, dass noch Daten vorliegen, die eingelesen werden können.
Immer wenn wieder Daten aus dem Dateihandel gelesen werden können, wird die im File-Event hinterlegte Callback-Funktion aufgerufen.
Das Programm wartet auf Daten am Ende der übergebenen Datei, etwa einem Logfile.
Siehe perldoc Tk::fileevent und Mastering Perl/Tk Kapitel 15 und 19 auf den Seiten 378ff und 484ff.
Code: (dl
)
$splash->bind('<<toete>>' => sub { $splash->destroy() } );($splash fungiert hier als $mw)
Code: (dl
)
1
2
3
4
5
6
7
$splash->after(
100,
sub {
&$f();
$splash->eventGenerate('<<toete>>', -when => 'now');
}
);
Hier wird zunächst die Initialisierungsfunktion laufen gelassen, dann setze ich Event ab.
Hier kommt ein Beispiel zu File-Events:
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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
#!/usr/bin/perl
use strict;
use warnings;
use Tk;
use Tk::ROText;
use IO::File;
use POSIX qw/tmpnam/;
use File::Basename qw/dirname/;
use FindBin;
#
# create tempory file name:
#
my $File;
my $Handle;
my $Mw;
{
do {
$File = tmpnam();
}
until my $fh = new IO::File ($File, O_RDWR | O_CREAT | O_EXCL);
}
print "File: [$File]\n";
#
# create $File and open $Handle:
#
fill_in();
system('ls', '-l', dirname($File));
open($Handle, "tail -f $File|") or die "Nope: $!";
#
# Start Tk
#
tk_start();
exit;
sub tk_start {
my $mw = $Mw = new MainWindow;
#$mw->title("fileevent.pl - tmpfile: [$File]");
$mw->Label(
-text => "tmpfile: [$File]",
-anchor => 'w',
)->pack(
-fill => 'x',
-expand => 0,
);
$mw->Button(
-text => 'Daten in Datei schreiben',
-command => \&fill_in,
)->pack(
-fill => 'x',
-expand => 0,
-padx => 10,
-pady => 10,
-ipadx => 10,
);
my $t = $mw->Scrolled(
'ROText',
-scrollbars => 'oe',
-height => 10,
-width => 50,
)->pack(
-fill => 'both',
-expand => 1,
-pady => 10,
);
$mw->fileevent(\*$Handle, 'readable', [ \&fill_text_widget, $t ]);
MainLoop();
} # sub tk_start
sub fill_in {
system("date >> $File");
}
sub fill_text_widget {
my ($widget) = @_;
my $stat = sysread $Handle, $_, 4096;
die "sysread error: $!" unless defined $stat;
$widget->insert('end', $_);
$widget->yview('end');
} # sub fill_text_widget
END {
print "Anfang vom ENDE\n";
#$Mw->fileevent(\*$Handle, 'readable');
#$Handle->close();
unlink $File or die "Konnte '$File' nicht loeschen: $!";
print "Ende vom ENDE\n";
system "kill -9 $$";
} # END
Es wird ein File-Event erzeugt, das die Lesbarkeit des Dateihandels überprpüft. Dieses Dateihandel muss offen sein, Lesbarkeit bedeutet hier, dass noch Daten vorliegen, die eingelesen werden können.
Immer wenn wieder Daten aus dem Dateihandel gelesen werden können, wird die im File-Event hinterlegte Callback-Funktion aufgerufen.
Das Programm wartet auf Daten am Ende der übergebenen Datei, etwa einem Logfile.
Siehe perldoc Tk::fileevent und Mastering Perl/Tk Kapitel 15 und 19 auf den Seiten 378ff und 484ff.
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
use strict; use warnings; Link zu meiner Perlseite
use strict; use warnings; Link zu meiner Perlseite