Opened by Gast at 2006-11-29 17:33
Hallo!
Ich habe eine Perl/Tk Anwendung, die auch einen Texteditor enthällt, welcher Perl Skripte verwltet.
Die Perl Skripte sollen ausgeführt werden können, aber Ihre Ausführung muss auch gestoppt werden können.
Im Moment führe ich die Programme mit eval aus.
Aber ich weiß nicht wie ich es schaffe die Ausführung anzuhalten.
Ich habe schon das Forum und Google durchsucht, aber finde einfach nichts was mir da weiterhilft.
Dazu habe ich mir auch mal threads angesehen, allerdings hat vollgendes Beispiel auch nicht das gewünschte Erbegnis erzielt:
Als ich das ausprobiert habe ist mir nur aufgefallen, dass join() wohl den thread nicht startet, sondern ihm die volle "Aufmerksamkeit" gibt. Und, dass detach() den thread nicht beendet, sondern in quasi löscht.
Warscheinlich kann man mein Problem mit threads lösen, nur ich weiß eben nicht wie, vielleicht kann man aber auch eval stoppen und ich habe noch nicht herausgefunden wie das funktioniert.
Ich freue mich über alle Arten von Anregungen.
- Perl Anfänger -
Ich habe eine Perl/Tk Anwendung, die auch einen Texteditor enthällt, welcher Perl Skripte verwltet.
Die Perl Skripte sollen ausgeführt werden können, aber Ihre Ausführung muss auch gestoppt werden können.
Im Moment führe ich die Programme mit eval aus.
Aber ich weiß nicht wie ich es schaffe die Ausführung anzuhalten.
Ich habe schon das Forum und Google durchsucht, aber finde einfach nichts was mir da weiterhilft.
Dazu habe ich mir auch mal threads angesehen, allerdings hat vollgendes Beispiel auch nicht das gewünschte Erbegnis erzielt:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
#!/usr/bin/perl
use strict;
use warnings 'all';
use Tk;
use threads;
my $thr = threads->new(sub { (print("An!\n"), sleep 1) while 1 });
my $mw = tkinit;
$mw->Button(-text => "Start", -command => sub { threads->yield; $thr->join })->pack;
$mw->Button(-text => "Stop!", -command => sub { $thr->detach })->pack;
MainLoop;
Als ich das ausprobiert habe ist mir nur aufgefallen, dass join() wohl den thread nicht startet, sondern ihm die volle "Aufmerksamkeit" gibt. Und, dass detach() den thread nicht beendet, sondern in quasi löscht.
Warscheinlich kann man mein Problem mit threads lösen, nur ich weiß eben nicht wie, vielleicht kann man aber auch eval stoppen und ich habe noch nicht herausgefunden wie das funktioniert.
Ich freue mich über alle Arten von Anregungen.
- Perl Anfänger -