[TP] Exemple simple Fork

[cipher16]

chrono.pl est un l'autre lien sur les fork du forum ...

Code: Tout sélectionner

#!/usr/bin/perl -w
use strict;
my $pid;
$pid=fork;
die "pe pa forker" if !defined($pid);
if($pid==0)
{
sleep(5);
print "Le fils est lancé ...\n";
exec "/usr/bin/perl chrono.pl";
}
else
{
print "En attente du fils et du saint esprit\n";
wait();
print "\nProc terminé...\n";
}