🚀 go-pugleaf

Krzysztof Lewicki wrote:
> Potrzebuje użyć wątków perlowych i natrafiłem na pewien problem. Napisałem 
> sobie taki oto przykładowy fragment kodu:
> 
> my $queue = Thread::Queue->new();
> my $t1 = threads->create(\&test_reader);
> my $t2 = threads->create(\&test_writer);
> 
> $t2->join();
> 
> sub test_writer
> {
> 	while (1)
> 	{
> 		sleep 1;
> 		my %t = (1 => "A", 2 => "B")
> 		$queue->enqueue(share(%t));
> 	}	
> }
> 
> sub test_reader
> {
> 	threads->detach();
> 	
> 	while (my $ref= $queue->dequeue())
> 	{
> 		my %hash = %{$ref}; # wyswietla np. HASH(0x1110970)
> 		print %hash; # tu juz nic nie wyswietla
> 	}
> }
> 
> Jedna kolejka, 2 watki, jeden czyta z kolejki, drugi zapisuje. Niby 
> proste. Problem pojawia sie jednak w funkcji test_reader. Otóż podczas 
> wyciagania z kolejki dostaje referencje na hash (print $ref daje cos w 
> stylu HASH(0x1110970)) i dotad - chyba - jest OK. Kiedy probuje wyciagnac 
> hasha z referencji dostaję... pustkę.
> 
> Nie wiem co z tym fantem zrobic, moze ktos mnie naprowadzi?

Mnie zazwyczaj sporo wyjaśnia:
use Dumper;
print Dumper $referencja;

-- 
P.M.