Perl нити против объекта деструкторов

Question

Запуск этой программы PERL:

use strict; 
use warnings; 
use threads; 

my $foo = Foo->new(); 

my $t = threads->create(sub { print "in thread\n" }); 

$t->join(); 

package Foo; 

sub new 
{ 
print "Foo->new\n"; 
return bless {}, 'Foo'; 
} 

sub DESTROY 
{ 
print "Foo->DESTROY\n"; 
} 

1; 

Производит этот вывод:

Foo->new 
in thread 
Foo->DESTROY 
Foo->DESTROY 

Я думаю, что это происходит потому, что Perl делает копию $ обув в новом потоке а затем вызов деструктора при выходе нового потока и выходе основного потока. Мне это кажется плохим поведением. Это дает мне головные боли в моей гораздо более сложной, актуальной программе. Есть ли способ заставить Perl не делать этого?

Answer 1

Вы можете поместить это в пакет Foo:

sub CLONE_SKIP { 1 } 

(если вы не используете древний Perl).

Но когда вы начинаете пытаться бороться с тем, что perl копирует весь ваш код и данные во время создания нового потока, вы входите на территорию, где вам может быть лучше без потоков. Вам нужно будет сказать, что вы используете потоки, чтобы получить хороший совет по этому вопросу.

Answer 2

Не строите объект перед запуском нити. Если объект действительно необходим в обоих потоках, подумайте об обмене его - внимательно прочитайте документацию threads::shared.