bei langen Subroutinen bleibt alles stehen: - Nebenläufigkeit mit fork()? - - #81898 (Allgemeines zu Perl)

anti

2004-04-28 20:38

User since
2003-11-29
155 Artikel
BenutzerIn
[default_avatar]

Hi Community,
ich habe ein kleines Problem:
Ich habe eine GUI gebastelt, aus der heraus beim Klick auf einen bestimmten Button eine Subroutine / evtl. auch anderes Perlskript aufgerufen werden soll. Das Problem dabei ist, dass die Subroutine / anderes Skript sehr lange (ca. 2min) rechnet. In dieser Zeit friert die GUI komplett ein, d.h. es ist nichts mehr auswählbar oder so.
Also dachte ich mir, ich "erschaffe" einfach einen Child-Prozess, und der übernimmt die Subroutine /anderes Skript. Das ganze sieht ungefähr so aus:

Code: (dl )

my $child = fork(); 
if ($child == '0') {
	exec('perl test.pl');
}else {while(!waitpid ($child,WNOHANG)) {
    #hier kann alles mögliche parallel weiterlaufen!!
    } 
    print "\07fertig\n";
    }

Das ganze funktioniert in soweit, dass die GUI nun während der Berechnung der Subroutine "benutzbar" bleibt, allerdings bekomme ich keinerlei Rückmeldung wann fertig gerechnet wurde und auch Parameter kann ich so nicht übergeben. Dabei gilt noch zu bemerken, dass dieses Codestück in einem extra Skript steht und aus der GUI aufgerufen wird, da es, wenn ich es direkt in die GUI schreibe, abbricht (Windows beendet mit einer Fehlermeldung).
Gibt s nun eine Möglichkeit dieses Einfrieren ohne fork() zu verhindern - oder zumindest eine Rückmeldung zu erhalten, wann fertig gerechnet wurde?

Danke, Anti\n\n