Hi,
ich möchte aus einem Thread mittels einer Threadqueue Hashes
zurück zum Hauptthread transportieren.
Weiß jemand einen Grund warum das so nicht funktioniert ?
Gibt es einen alternativen Weg ?
-----
#!/usr/bin/env perl
use warnings;
use strict;
use threads;
use Thread::Queue;
use Data::Dumper;
my $q = new Thread::Queue;
sub ttest(){
while (1){
my %h;
$h{tid} = threads->self->tid();
$h{time} = time();
print "DEBUG-IN:".Dumper(\%h)."\n";
$q->enqueue(\%h);
sleep 1;
}
}
threads->create("ttest");
threads->create("ttest");
while (1){
my %f = $q->dequeue();
print "DEBUG-OUT:".Dumper(\%f)."\n";
print "DEBUG-OUT: time: ".$f{time}." tid:".$f{tid}."\n";
}
-----
Gruß
Marc
--
I prefer non-proprietary document-exchange.
http://sector7g.wurzel6.de/pdfcreator/
http://www.prooo-box.org/
