37 lines
568 B
Perl
37 lines
568 B
Perl
|
#!/usr/bin/perl -w
|
||
|
|
use strict;
|
||
|
|
|
||
|
|
my @fils;
|
||
|
|
print "Mon PID :". $$ ."\n ";
|
||
|
|
|
||
|
|
sub nouveau
|
||
|
|
{
|
||
|
|
my $pid = fork();
|
||
|
|
if($pid==0)
|
||
|
|
{
|
||
|
|
exec("perl chrono.pl");
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
push(@fils,$pid);
|
||
|
|
print "nouveau chrono : $pid \n";
|
||
|
|
print "liste des fils : @fils \n";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
sub demandeTemps
|
||
|
|
{
|
||
|
|
print "On transmet SIGINT à tous les chronos";
|
||
|
|
kill 2, @fils;
|
||
|
|
}
|
||
|
|
sub arret
|
||
|
|
{
|
||
|
|
print "On transmet SIGQUIT à tous les chronos";
|
||
|
|
kill 3, @fils;
|
||
|
|
exit(0);
|
||
|
|
}
|
||
|
|
|
||
|
|
$SIG{"TERM"} = "nouveau";
|
||
|
|
$SIG{"INT"} = "demandeTemps"; # INT = kill 2 = CTRL C
|
||
|
|
$SIG{"QUIT"} = "arret"; # QUIT = kill 3
|
||
|
|
while(1){}
|