new Thread cannot work

new Thread cannot work

am 18.04.2008 03:32:49 von happytown277

Hi, buddies.
The code below can't work on my WindowsXP with SP2:

===============
#!/usr/bin/perl

use Thread qw/async yield/;

my $var = 0;

sub abump {
lock $var;
if ($var == 0) {
yield;
$var++;
}
}

my $t1 = new Thread \&abump;
my $t2 = new Thread \&abump;

for my $t ($t1, $t2) {
$t->join;
}

print "var is $var\n";
===============
It show me this information below after I run the code:
"Undefined subroutine &threads::new called at E:\test\learnperl
\thread.pl line 15."

And line 15 is:
my $t1 = new Thread \&abump;

I test the code under Linux, but the result is ways:
"var is 0";

So, what is wrong?

BTW: the code is one example of "Programming Perl" (third edition).
And it is in chapter "Threads".

===============
Thanks anyway in advance.

Best wishes

happytown277


--
To unsubscribe, e-mail: beginners-unsubscribe@perl.org
For additional commands, e-mail: beginners-help@perl.org
http://learn.perl.org/

Re: new Thread cannot work

am 18.04.2008 12:08:23 von happytown277

Sorry for these line:
"It show me this information below after I run the code: "
" I test the code under Linux, but the result is ways:"

They should be:
"It shows me this information below after I run the code: "
"I test the code under Linux, but the result is aways: "


--
To unsubscribe, e-mail: beginners-unsubscribe@perl.org
For additional commands, e-mail: beginners-help@perl.org
http://learn.perl.org/

Re: new Thread cannot work

am 18.04.2008 12:39:17 von chas.owens

On Thu, Apr 17, 2008 at 9:32 PM, wrote:
> Hi, buddies.
> The code below can't work on my WindowsXP with SP2:
snip
> It show me this information below after I run the code:
> "Undefined subroutine &threads::new called at E:\test\learnperl
> \thread.pl line 15."
>
> And line 15 is:
> my $t1 = new Thread \&abump;
>
> I test the code under Linux, but the result is ways:
> "var is 0";
>
> So, what is wrong?
snip

Most likely the version of Perl you are using was not compiled to use
threads. Type

perl -V

on the commandline and look for

Compile-time options

and tell use what it says after that.

--
Chas. Owens
wonkden.net
The most important skill a programmer can have is the ability to read.

--
To unsubscribe, e-mail: beginners-unsubscribe@perl.org
For additional commands, e-mail: beginners-help@perl.org
http://learn.perl.org/