#!/usr/bin/perl $saw_sig = 0; $SIG{INT} = \&my_sig; sub my_sig{ print "I am catching the signals\n"; $saw_sig = 1; } while (1){ $saw_sig==0?print "I am here\n":die; }
In reply to Re: signal handler on NT
by charnos
in thread signal handler on NT
by xhe
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |