Thread Perl v5.8.8 frißt Performance: Tk mit system call (4 answers)
Opened by sesth at 2006-03-24 22:42

sesth
 2006-03-24 22:42
#45301 #45301
User since
2005-02-01
181 Artikel
BenutzerIn
[default_avatar]
Hallo,

seit dem Upgrade auf ActiveState Perl v5.8.8 laufen einige meiner Perl Tk Skripte unter Windows nicht mehr. Mit Perl v5.8.7 trat das Problem nicht auf. Hier ein kleines Beispiel:
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

use Tk;
use strict;

sub doHello()
{
    system('dir');
}

my $top = new MainWindow;

my $button = $top->Button(-text => 'Hello World', -command => \&doHello);

$button->pack();

MainLoop;

Nach Clicken von "Hello World" verbraucht der Perl-Prozeß 100% CPU Leistung und die Ausgabe des system-Befehle kommt ziemlich langsam. Auf ein return der Unterprogramms habe ich nie gewartet, da es mir zu lange dauert. Mit der Vorgängerversion von Perl trat das Problem nicht auf. Ich bin deshalb auf die alte Version zurückgegangen.

Hat jemand einen Tipp für mich, wie ich das mit Perl v5.8.8 unter Windows trotzdem zum Laufen bekomme? Die mangelnden Threadfähigkeiten von Tk sind ja dokumentiert - wurde da etwas geändert?
Gruß
Thomas

View full thread Perl v5.8.8 frißt Performance: Tk mit system call