, . , , : Perl ithreads
:
, , perl 5.005, Perl ithreads. ? , , , . , . , , , , . ! :
use threads ();
my $foo;
threads->new( sub {print "thread: coderef = ".\$foo."\n"} )->join;
print " main: coderef = ".\$foo."\n";
:
thread: coderef = SCALAR(0x1eefb4)
main: coderef = SCALAR(0x107c90)
, , . , , . , . ? . ( , ), "". , , "" , , . , - ( Thread:: Tie).
source
share