Opened by DonKnilch at 2009-10-19 16:09
User since
2008-01-27
367 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2008-01-27
367 Artikel
BenutzerIn
Hatte ein bisschen Zeit und mal ein Beispiel geschrieben, welches das Vorgehen verdeutlicht. Dazu habe ich mich u.a. dieser Idee bedient, einen Thread zu erzeugen, bevor mit Tk gearbeitet wird, welcher dann die Arbeit erledigt. In diesem Fall weitere Threads erzeugt.
Modul: MyThreads.pm
Skrip: test.pl
<edit>Im Skript kann use threads; und use threads::shared; natürlich weg. War wohl von einem Test noch übrig.
Beispiel, wie man die Threads killt (schließlich ging es ja darum):
</edit>
Das ist nicht großartig durchdacht (alle Threads mit gleichem "Namen", verwenden bsw. die selbe Queue) aber die Idee dahinter könnte nützlich sein. Du müsstest es natürlich an deine Anwendung anpassen.
MfG
Last edited: 2009-10-20 15:57:52 +0200 (CEST)
Modul: MyThreads.pm
Skrip: test.pl
<edit>Im Skript kann use threads; und use threads::shared; natürlich weg. War wohl von einem Test noch übrig.
Beispiel, wie man die Threads killt (schließlich ging es ja darum):
Code (perl): (dl
)
MyThreads::do { $_->kill('KILL')->detach };
Das ist nicht großartig durchdacht (alle Threads mit gleichem "Namen", verwenden bsw. die selbe Queue) aber die Idee dahinter könnte nützlich sein. Du müsstest es natürlich an deine Anwendung anpassen.
MfG
Last edited: 2009-10-20 15:57:52 +0200 (CEST)
perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'