Re: How do I trap $SIG{INT} ( sigint aka Ctrl^c )?


Do you know where your variables are?
	PerlMonks

Re: How do I trap $SIG{INT} ( sigint aka Ctrl^c )?

by crazyinsomniac (Prior)

on Jul 01, 2001 at 13:18 UTC ( [id://93005]=note: print w/replies, xml )

Need Help??

⭐ in reply to How do I trap $SIG{INT} ( sigint aka Ctrl^c )?

Basically you need to kill yourself (the process).

#!/usr/bin/perl -w

use sigtrap 'handler' => \&myhand, 'INT';
# equivalent to $SIG{INT}=\&myhand;

# use strict;
# kill 6 doesn't work under strict under IndigoPerl for some reason

sub myhand
{
    print "\n caught $SIG{INT}",@_,"\n";
    kill 6, $$; # ABRT = 6
    # $$ is the pid of the current process
}

print "program started \n";

while(1)
{ select(undef,undef,undef,0.25);}
[download]

Also check out perlvar(for $$), perlipc and How do I trap control characters/signals?.
kill 6 is the equivalent of kill ABRT (thanks Vynce).