bonjour, à partir de ce petit programme de test, j'aimerais pouvoir créer 5 processus fils qui dialoguent avec leur pere.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
#!/usr/bin/perl
 
use IO::Handle ;
 
pipe ( ENTREE , SORTIE ) ;
SORTIE -> autoflush ( 1 ) ;
 
$pid = fork ( ) ;
 
 
if ( $pid != 0 ){
        close ( SORTIE ) ; # Le processus pere n'a pas à écrire dans le tube.
        print "ttt\n";
        waitpid ( $pid , 0 ) ;
        my @message = <ENTREE> ;
        print "Message du fils : @message\n" ;
}
else{
        close ( ENTREE ) ; # Le processus fils n'a pas à lire dans le tube.
 
        for($i=0;$i<20;$i++){
                print SORTIE "$i fils $$.\n" ;
        }
}
que dois je ajouter ?

Merci.