如何在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();    
} 

我怎樣才能訪問對象$的人在新的線程？非常感謝！！

Answer 1

您是否看過threads::shared Perl擴展？

threads :: shared - 在線程之間共享數據結構的Perl擴展。默認情況下，變量對每個線程都是私有的，並且每個新創建的線程都獲取每個現有變量的私有副本。這個模塊允許你在不同線程之間共享變量（以及Win32上的僞叉）。它與線程模塊一起使用。此模塊僅支持共享以下數據類型：標量和標量引用，數組和數組引用，以及散列和散列引用。