Perl

[Perl] Lancer une centaine de "threads" sous windows

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Perl] Lancer une centaine de "threads" sous windows

burgergold

5$? va chez l'diable!

J'ai un script qui devra changer le mot de passe d'un user sur plusieurs centaines de pc. Pour éviter que celui-ci prennent plus de 30minutes, j'ai tenté de le forker.

Malheureusement, le fork() sous windows est limité à 64 semble t-il.

J'ai donc tenté d'utiliser la librairie threads, mais celle-ci est vachement lourde en mémoire, c'est à dire que la mémoire augmente à chaque threads lancé et ne diminue pas tant que tout le script n'est pas complété.

Code :

open(FENT, $opts{"file"}) or die "Can't open " . $opts{"file"} . "\n";
foreach (<FENT> ) {
$_ =~ s/\n//g;
my $forked = async {user_change_password($_, $opts{"user"}, $opts{"old"}, $opts{"new"});}
}
close FENT;

Publicité

chopman

Dans la doc il fait écrit que si on fait "detach" apres le thread, perl nettoie le thread quand il a terminé mais apparement ca ne fonctionne pas... g le meme probleme...

burgergold

5$? va chez l'diable!

le fork fonctionnait bien... mais s'arrete a 64 :sweat:

chopman

beh oui c genant...

burgergold

5$? va chez l'diable!

Code :

my $thread = threads->new(\&user_change_password, $_, $opts{"user"}, $opts{"old"}, $opts{"new"});
$thread->detach;

ca semble fonctionner à merveille, je stagne à 36mo alors quavant je montais jusqua 400!

chopman

t'es sûr que ca stagne? paske moi ca ne fait qu'augmenter... petit à petit mais sûrement lol
Faut dire que tu en fais 100 mais apres c tout...
moi je les lance en boucle ttes les 5minutes

burgergold

5$? va chez l'diable!

jai fait le test sur 500

ca dépend combien de thread ton cpu est capable de prendre aussi

su un P3 900, je stagnais à 36mo

sur un quad Xeon 550, j'ai monté jusqua 60 environ mais ca restait stable

chopman

C'est un p4 2.6Ghz donc je crois que ca va! ;o)
il ralenti pas du tout, c au niveau de la memoire, toutes les 5minutes la taille prise par l'interpreteur en memoire augmente... C pas très viable, mon programme devra tourner sans arret theoriquement pendant tres longtemps! Meme si le serveur sur lequel je vais l'installer a 2.5Go de memoire, apres meme pas un mois ca va etre saturé!

pospos

Il vaut mieux eviter les thread et les fork sous windows, pour l'instant.

t'as pas le moyen de le faire en asynchrone?

burgergold

5$? va chez l'diable!

pospos a écrit :

Il vaut mieux eviter les thread et les fork sous windows, pour l'instant.

t'as pas le moyen de le faire en asynchrone?

async? c'est justement lui qui me mangeais toute ma mémoire. Avec threads et $threads->detach, tout va #1 après plusieurs essais sur quelques machines

Publicité

pospos

non je parlais pas de cet async la
il vient d'ou d'ailleurs? (il vient d'ou? d'ailleurs?)

Message édité par pospos le 04-03-2004 à 15:00:03

burgergold

5$? va chez l'diable!

pospos a écrit :

non je parlais pas de cet async la
il vient d'ou d'ailleurs? (il vient d'ou? d'ailleurs?)

j'avais trouvé ca, avec un use de threads, on peut utiliser un truc du genre

my $child_thread = asyn { put your code };

---------------
http://www.boincstats.com/signature/user_664861.gif

FORUM HardWare.fr

Programmation

Perl

[Perl] Lancer une centaine de "threads" sous windows

Sujets relatifs
probleme d'adaptation sous windows XP de visual C	afficher des images dix par dix sur perl
threads	[Perl] Win32API et return code
[Perl] Navigation dans un site + remplissage de formulaires	[C] Cherche un tuto pour apprendre à faire des threads en C
[C++ Erreur] ComCtrls.hpp(2638): E2015 Ambiguïté entre 'Windows' et...	[C#]Lancer mon appli Windows sur l'écran secondaire
prog. windows : contrôles d'édition et polices de caractères
Plus de sujets relatifs à : [Perl] Lancer une centaine de "threads" sous windows

Page générée en 0.043 secondes