🚀 go-pugleaf

On Wed, 23 Dec 2009 19:49:33 +0100, Andrzej Adam Filip wrote:

> Krzysztof Lewicki <menth0l@remove.this.o2.pl> pisze:
[----]
> <quote src="man Threads::shared">
>   BUGS AND LIMITATIONS
>     When "share" is used on arrays, hashes, array refs or hash refs,
>     any data they contain will be lost.
> </quote>

Ja bym w ogóle ten kod przerobił tak:

use threads;
use threads::shared;
use Thread::Queue;

my $queue = Thread::Queue->new();
my $t1 = threads->create(\&test_reader);
my $t2 = threads->create(\&test_writer);

$t1->join();
$t2->join();

sub test_writer
{
  my %t;
  my $rt = share(%t);
  while(1)
  {
    sleep 1;
    %t = (1 => 'A', 2 => 'B');
    $queue->enqueue($rt);
  }
}

sub test_reader
{
  my %hash;
  my $ref;
  while($ref=$queue->dequeue())
  {
    %hash = %{$ref}; 
    print %hash, "\n"; 
  }
}

U mnie to działa, sprawdzone.
-- 
Szymon Sokół (SS316-RIPE) -- Network Manager                                 B
Computer Center, AGH - University of Science and Technology, Cracow, Poland  O
http://home.agh.edu.pl/szymon/ PGP key id: RSA: 0x2ABE016B, DSS: 0xF9289982  F
Free speech includes the right not to listen, if not interested -- Heinlein  H