Discussion :

[Rithy666]

Hello,

Je suis en train d'apprendre le perl et je ne comprends pourquoi dans ce code que j'ai écris pour tester fork, le père n'écrit jamais que son fils vient de crever.

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
#!/usr/bin/perl -w
use strict;
use POSIX ":sys_wait_h";
 
my $pid;
my $i=1;
while ($i <= 5) {
	$pid = fork();
	if ($pid != 0) {
	  &father_stuff($pid);
	} else {
	  &child_stuff($i);
	  exit;
	}
	$i++;
}
 
if ($pid != 0) {
	do
	{
                $pid = waitpid(-1,&WNOHANG);
		if ($pid > 0) {
			print ("[FATHER]\t".scalar(localtime())." \tChild <$pid> ended.\n");
		}
	}
	until ($pid == -1);
}
 
sub father_stuff($)
{
	my ($local_pid) = @_;
	print ("[FATHER]\t".scalar(localtime())." \n\tWaiting for my son's <$pid> end...\n");
}
 
sub child_stuff($)
{
	my ($child_number) = @_;
        print ("[CHILD_$child_number]\t".scalar(localtime())." \tEnding here...\n");
}

Merci pour votre aide,
Rithy666.

[Philou67430]

Ne faut-il pas écrire

Code :

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

$pid = waitpid(-1,WNOHANG);

(WNOHANG et pas &WNOHANG)

[estofilo]

Sur quel système d'exploitation?
Personnellement sous linux/perl 5.10 je ne vois pas le résultat dont tu te plains, j'obtiens ça:

[FATHER] Wed Feb 17 17:47:54 2010
Waiting for my son's <23420> end...
[CHILD_1] Wed Feb 17 17:47:54 2010 Ending here...
[FATHER] Wed Feb 17 17:47:54 2010
Waiting for my son's <23421> end...
[CHILD_2] Wed Feb 17 17:47:54 2010 Ending here...
[CHILD_3] Wed Feb 17 17:47:54 2010 Ending here...
[FATHER] Wed Feb 17 17:47:54 2010
Waiting for my son's <23422> end...
[FATHER] Wed Feb 17 17:47:54 2010
Waiting for my son's <23423> end...
[CHILD_4] Wed Feb 17 17:47:54 2010 Ending here...
[FATHER] Wed Feb 17 17:47:54 2010
Waiting for my son's <23424> end...
[CHILD_5] Wed Feb 17 17:47:54 2010 Ending here...
[FATHER] Wed Feb 17 17:47:54 2010 Child <23420> ended.
[FATHER] Wed Feb 17 17:47:54 2010 Child <23421> ended.
[FATHER] Wed Feb 17 17:47:54 2010 Child <23422> ended.
[FATHER] Wed Feb 17 17:47:54 2010 Child <23423> ended.
[FATHER] Wed Feb 17 17:47:54 2010 Child <23424> ended.

[Philou67430]

J'obtiens à peu près la même chose sous XP/cygwin/perl5.10

[Rithy666]

J'obtiens à peu près la même chose sous XP/cygwin/perl5.10

J'utilise Strawberry Perl pour pouvoir bosser sur environnement Vista.
Donc ce serait Vista/StrawBerry Perl/perl5.10.1.

[Rithy666]

Je ne sais pas ce qui s'est passé. Manque d'attention certainement. Ca marche finalement, je devais pas avoir les yeux en face des trous.
Intrigué par le commentaire de Philou, j'ai fait sauter le & et j'ai le même rendu, avez-vous une explication pour cela ?

Merci.