Forum Programmation.perl recuperation de data dans un thread

bonjour,

J'ai un script qui ressemble à ça:

#! /usr/pkg/bin/perl -w





use strict ; 


use Config ; 


use threads ; 





my %a ; 


my $key ;


my $thrd1 ;


my $thrd2





sub deck {


    my %b=( 'deck' => '5567' , 


            'raym' => 'fooo' )  ; 


    print "Je fais plein de chose...\n\n\n" ; 


    return %b ;


}





$thrd1 = threads->new(\&deck) ; 


$thrd2 = threads->new(\&deck) ; 








$thrd1->join ; 


$thrd2->join ; 

Comment faire pour recuperer le hash qui est dans $thrd1...?

Je dois avouer que je ne comprend pas trop le concept...! :p

Merci d'avance...!


PS: J'arrive pas mettre les 'plus grand que', donc les &gt sont des 'plus grand que', vraiment desolé...