Re^3: Force 2 'ctrl-c's to kill program

in reply to Re^2: Force 2 'ctrl-c's to kill program
in thread Force 2 'ctrl-c's to kill program

Must get my head around what it is doing now.

$SIG{ INT } = sub  {
     ## State makes $last a closure; that is a variable that remember'
+s its value 
     ## between invocations of the subroutine
     state $last = 0; 

     ## if the time now is greater than 2 seconds later than the last 
+time we saw a ^C
     if( ( time - $last ) > 2 ) {
         ## Overwrite the last time with the current time
         $last = time;
         ## And just return; ignoring this ^C
         return;
     }
     ## However, if it is less than 2 seconds; die.
     die 'Interupted by ^C^C';
};
[download]

With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

Comment on Re^3: Force 2 'ctrl-c's to kill program Download Code

Replies are listed 'Best First'.
Re^4: Force 2 'ctrl-c's to kill program by Anonymous Monk on Feb 12, 2013 at 09:41 UTC
Ah, that makes a lot of sense. "State" was new to me (not using 5.010 yet) so threw me a little. Cheers	[reply]

In Section Seekers of Perl Wisdom