perl - 如何在 Perl 中的线程之间共享对象？

Question

我已经搜索了相关主题，但仍然无法解决问题...

use threads;
my $person = new Person( 'Name' => "yy");

my $udp_thread = threads->new(\&udp_func);

while(1)
{
    $person->working();
}

sub udp_func 
{
    #Can't call method "setName" on an undefined value:
    $person->setName();             
}

如何在新线程中访问对象 $person ？非常感谢!!

Answer 1

你看过threads::shared了吗？ Perl 扩展？

threads::shared - Perl extension for sharing data structures between threads. By default, variables are private to each thread, and each newly created thread gets a private copy of each existing variable. This module allows you to share variables across different threads (and pseudo-forks on Win32). It is used together with the threads module. This module supports the sharing of the following data types only: scalars and scalar refs, arrays and array refs, and hashes and hash refs.