Discussion :

[mnem0]

bonjour,
j'ai un probleme avec ces threads : sans threads, mes tableaux se remplissent, avec threads, nada

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
    my $t1 = Thread->new(searchVivisimo($recherche));
    my $t2 = Thread->new(searchClusty($recherche));
    my $t3 = Thread->new(searchIBoogie($recherche));
    my $t4 = Thread->new(searchLexxe($recherche));
    my $t5 = Thread->new( searchCarrot($recherche));
    my @resultatsVivisimo = $t1->join();
    my @resultatsClusty = $t2->join();
    my @resultatsIBoogie = $t3->join();
    my @resultatsLexxe = $t4->join();
    my @resultatsCarrot = $t5->join();

je fais une erreur quelque part ?

[Jedai]

je fais une erreur quelque part ?

Plusieurs :
d'une part, n'utilise pas le module Thread mais plutôt le module threads, Thread est obsolète et réservé pour la compatibilité avec les vieux Perl.

d'autre part, ton appel à new() est incorrect :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
my $t1 = threads->new( \&searchVivisimo, $recherche );

est l'appel correct.

--
Jedaï

[mnem0]

Je vais tester, en cas de succès je mettrai "résolu" merci bien

[mnem0]

Je vais tester, en cas de succès je mettrai "résolu" merci bien

edit : ça marche pas, ça me retourne la taille des tableaux retournés par chacune des fonctions search* aulieu de leur contenu :/

je vais tester des open -| comme on me l'a conseillé, le truc c'est que je pige pas comment faire avec 5 threads vu que les exemples/tutos fonctionnent avec un pere et un fils.

J'ai besoin de faire les 5 processes en parallele, attendre qu'ils soient tous finis pour faire la suite, ça va être chaud si jamais tu sais faire, n'hesite pas hein

[Jedai]

Parfois, ça vaut le coup de consulter la documentation de Perl...
En particulier, le type de valeur retourné par un join() est déterminé à la création du thread, consulte cette doc pour plus de détail.

Par exemple, ce code devrait fonctionner :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    my ($t1) = threads->new(\&searchVivisimo, $recherche);
    my @resultatsVivisimo = $t1->join();

--
Jedaï

[mnem0]

t'es un chef