#! /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 (…)
Forum Programmation.perl recuperation de data dans un thread
bonjour,
J'ai un script qui ressemble à ça: