Zugriff auch nach MainLoop ? - #43389 (Graphische Oberflächen)

Froschpopo

2005-04-08 20:07

User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]

[quote=Dubu,08.04.2005, 10:48]

Code: (dl )

while(<SOCKET>) {
     $mw->configure(...);
     ...
     $mw->update();
}

[/quote]
genau das ist mein problem ! Die <SOCKET> ist ewig wahr und deshalb friert Tk ein weil MainLoop ja auch ne Schleife ist und Perl nicht zwei schleifen gleichzeitig ausführen kann!
Mein Plan ist eigentlich, SOCKET in ein Childprozess zu verlagern und vom Childprozess aus dann Funktionen im Elternprozess anzusprechen.

Ich weiss mittlerweile zwar wie ich das Kind erzeuge, jedoch weiss ich nicht wie ich ein Kind im Elternprozess ansprechen kann.

wenn ich:

sub child {
call_parant(); # Prozess bei den eltern
}

mache, dann wird call_parent auch als Child ausgeführt. WARUM?

Code: (dl )

#!/usr/bin/perl

use strict;
use Tk;
use threads;
use threads::shared;

my $t = threads->new(\&kind, $wm);

sub kind {
    eltern("hallo");
    return;
}
sub eltern {
    print "Das Kind sagt: $_[0]";
}

sleep(4); #warten bis kind fertig ist

\n\n