threads->join() zwingt Vater zu warten - #53537 (Allgemeines zu Perl)

Froschpopo

2005-04-07 22:21

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

ich hab folgendes kleines Script:

Code: (dl )

#!/usr/bin/perl

use strict;
use threads; 


my $th_inc = threads->new( \&kind );

$th_inc->join();

sub kind {
    sleep(4);
    print "Kind ist fertig\n";
    exit;
}
print "Vater ist fertig\n";

Das Problem ist nun: Der Vater wartet aufs Kind anstatt direkt "Vater ist fertig" auszugeben. Da das sleep(4) ja nur im Kind stattfindet, müsste doch eigentlich zuerst der Vater fertig sein da dieser nicht schlafen muss.
Irgendwie scheint also join() den Vater zu blockieren. Kann man das irgendwie verhindern?

Ich möchte dass das Kind direkt schon zu scriptbeginn ausgeführt wird.\n\n