Discussion :

[dmganges]

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 :

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

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 :

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

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

[ggnore]

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
# 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
}

[dmganges]

Simplement SUPERBE

MERCI beaucoup ggnore !