Intercepter les signaux SIGINT(2) et autres

Bonjour,
Est-il possible en Perl d'intercepter les signaux <Ctrl-C> <Ctrl-Z>... pour empêcher un utilisateur de faire un break par exemple.

Comme les trap en Shell Unix :

Code:

---

1 2	trap "" 1 2 3 15 # ignorer les signaux trap 1 2 3 15 # Puis éventuellement les autoriser à nouveaux

---

A placer dans un pgm rudimentaire, sans interface graphique :

Code:

---

1 2 3 4 5 6

#!/usr/local/bin/perl use strict; use warnings;   sleep 5; print "Coucou"

---

Merci d'avance !

[Edit 10:42] éventuellement les autoriser à nouveaux

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

# callback signal handler for signals. $SIG{INT} = $SIG{TERM} = $SIG{HUP} = \&signalHandler; $SIG{PIPE} = 'ignore';   until ($dieNow) { sleep($sleepMainLoop); # TODO: put your custom code here! # do something   # logEntry("log something"); # use this to log whatever you need to }     # catch signals and end the program if one is caught. sub signalHandler { $dieNow = 1; # this will cause the "infinite loop" to exit }

---

Simplement SUPERBE :ccool:

MERCI beaucoup ggnore !