Discussion :

[Conap]

Voilà, en utilisant cette méthode, à chaque fois que je fait un fork, la mémoire qu'utilise mon script augmente, mais une fois que le processus est terminé, la mémoire n'est pas rendu.

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
while(1){
	print " > ";
	$input = <STDIN>;
	chomp($input);
 
	if($input eq "fork"){
		my $pid = fork;
 
		if($pid){
			$i = 0;
 
			while($i > 10){
				$i++;
				sleep(1);
			}
 
			exit(0);
		}
 
		}
 
	print "Vous avez tape: $input\n";
}

Est ce qu'il existe une fonction qui me rendrait la mémoire ? Merci, A+

[Jedai]

Il faut utiliser waitpid() (perldoc -f waitpid) ou wait(), sinon tu laisses des processus zombies derrière toi... Ce problème n'est pas lié à Perl mais à l'appel système fork().

--
Jedaï

[Conap]

Super ! Merci !

[Arioch]

Le p'tit tag "Résolu" stp