perl 5.8.2/3 - thread started by a thread
From: pawo (pawo2000_at_wp.pl)
Date: 02/16/04
- Next message: thumb_42_at_yahoo.com: "Re: how do i tie a reference to a hash"
- Previous message: Matt Taylor: "Processing Bit Strings"
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]
Date: Mon, 16 Feb 2004 14:18:24 +0100
Hello everyone,
I'm a perl beginner. I created a piece of code starting a first thread which
in turn creates a second thread. Unfortunately the creation of the second
thread hangs the first one. Is there anybody who knows what's going on ?.
I decided to create fully OO software and I wouldn't like to go back into a
fork-based solution.
I also included my test application (I know there are no joins but it's only
for testing purposes)
--------------- test.pl -----------------------
#!/usr/bin/perl -w
use strict;
use Config;
$Config{useithreads} or die "recompile Perl with threads to run this
program.";
use ThrdTest;
#new object
my $object = ThrdTest->new;
#does sth
$object->start;
#wait for a carrige return
my $svalue = <>;
print "\nFINISHED\n";
------------ ThrdTest.pm ------------
package ThrdTest;
use strict;
use threads;
sub new {
my $class = shift;
my $self = {};
bless $self , $class;
return $self;
}
sub start {
my $self = shift;
threads->new(\&aaa, $self, "1");
threads->new(\&ddd, $self,"2");
}
sub aaa {
my $self = shift;
my $val = shift;
while(1) {
print $val;
}
}
sub ddd{
my $self = shift;
my $val = shift;
threads->new(\&aaa, $self, $val); # THE FIRST THREAD STALLS RIGHT HERE
}
return 1;
--------------------------------
Thank you in advance.
-- pawo [spadam b za duzo gadam]
- Next message: thumb_42_at_yahoo.com: "Re: how do i tie a reference to a hash"
- Previous message: Matt Taylor: "Processing Bit Strings"
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]
Relevant Pages
|
|
