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.

[Philou67430]

Intrigué par le commentaire de Philou, j'ai fait sauter le & et j'ai le même rendu, avez-vous une explication pour cela ?

Il est très probable que la constante WNOHANG soit implémentée sous forme d'une fonction, ce qui explique que l'usage de & ou non donne le même résultat.

Par exemple, il est possible décrire sans erreur de programmation

Code :

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

print WNOHANG();

et on obtient ceci en passant un paramètre :

Code :

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

1
2
3
$ perl -we 'use strict;use POSIX ":sys_wait_h";print WNOHANG(0)'
Too many arguments for main::WNOHANG at -e line 1, at end of line
Execution of -e aborted due to compilation errors.