Perl

[Perl] Probleme avec Fork

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Perl] Probleme avec Fork

batch_warrior

Bonsoir,

je débute en perl, donc ma question vous paraitra peut-être bête!
Je veux simplement créer un processus fils qui toutes les x secondes va réaliser un bout de code. Je mets donc un sleep 10 dans au niveau du code du fils, mais du coup il n'arrive jamais à prendre la main. Sans le sleep, j'obtiens sur la sortie standard une serie de 100 b puis 100 a ... (lié au scheduler, ça me va), par contre avec le sleep, j'obtiens que des a.

Avez vous une solution pour faire en sorte que le fils prenne aussi la main de temps en temps? Le but final est d'interroger un serveur et lui demander l'envoi d'un hash sur un fichier.

Merci d'avance

voilà mon code:

Code :

use strict;
sub pere
{
while (1){
print "a";
}
}
sub fils
{
while (1){
print "a";
#sleep 10;
}
}
sub test_fork
{
my $pid;
if ($pid = fork){
pere($pid);
}
elsif (defined($pid)){
fils;
}else { print "Erreur de Fork\n";}
}
test_fork;

Publicité

batch_warrior

j'ai réussi à faire ce que je voulais dans ce cas assez simple. Mais je ne vois pas comment faire pour généraliser. La j'arrive à afficher 3 valeurs différentes en factorisant un petit peu le code, mais j'aimerais arriver à faire une fonction qui prend en parametre le nombre de valeurs à afficher et qui arrive au mm resultat que le code ci-dessous mais sans devoir créer à l'avance l'architecture de la fonction pour n valeurs. Enfin bref, éviter de faire n branches avec des if et while pour afficher x valeurs. Avez-vous une idée?

Peut-etre du côté de la recurrence, mais je m'y connais pas des masses :sweat:

voilà le code qui marche pour l'affichage de 3 valeurs différentes:

Code :

#!/usr/bin/perl -w
use strict;
sub test_fork
{
my $pid;
my $pid2;
if ($pid = fork){
while (1){
sleep 1;
print "a\n";
}
}
elsif (defined($pid)){
while (1){
if ($pid2 = fork){
while (1){
sleep 1;
print "b\n";
}
}
elsif (defined($pid2)){
while (1){
sleep 1;
print "c\n";
}
}
}
}
else {print "Erreur de Fork\n";}
}
&test_fork;

Message édité par batch_warrior le 09-01-2006 à 00:48:29

Danjer

Ce que tu cherche a faire est, a mon avis, fou.

En fait tu te poses un probleme qui n'existe pas (J'ai beaucoup aime la partie sur le scheduler). J'ai modifie un petit peu ton code pour que tu comprennes pourquoi.

Code :

#!/usr/bin/perl -w
use strict;
sub test_fork {
my $pid;
my $pid2;
my $i = 0;
if ($pid = fork()){
while (1){
sleep 1;
print "a";
print "\n" unless $i++ % 2;
}
}
elsif (defined($pid)){
while (1){
if ($pid2 = fork()){
while (1){
sleep 1;
print "b";
print "\n" unless $i++ % 5;
}
}
elsif (defined($pid2)){
while (1){
sleep 1;
print "c";
print "\n" unless $i++ % 10;
}
}
}
}
else {print "Erreur de Fork\n";}
}
&test_fork;

Si tu utilises print pour afficher quelque chose la chaine est stockee dans un buffer (pour eviter de faire des appels systemes trop frequents). Lorsque le buffer est plein ou si celui-ci contient un '\n', le buffer est flushe.

Rajoute ceci en haut du script juste apres le 'use scrict';

Code :

$| = 1;

Tu pourras mediter en changeant les valeurs de $|.

Message édité par Danjer le 09-01-2006 à 02:07:45

---------------
Cdl, Danjer

FORUM HardWare.fr

Programmation

Perl

[Perl] Probleme avec Fork

Sujets relatifs
Probleme de Compilation C++	Probleme affichage liens CSS...
problème compilation fortran-Lahey!!!	probleme du transfert d'un fichier
probleme avec dev cpp	[REGLE] Problème d'insertion dans une base MySql
Probleme en C#: Ouvrir une Form a partir d'un bouton d'une autre Form	Gros et bizzare probleme
Probleme avec Dreamweaver 8 (Includes php)	[Perl] Probleme de fork & serveur socket
Plus de sujets relatifs à : [Perl] Probleme avec Fork

Page générée en 0.046 secondes