Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options

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

by ww (Bishop)
on Feb 11, 2013 at 17:44 UTC ( #1018201=note: print w/ replies, xml ) Need Help??

in reply to Force 2 'ctrl-c's to kill program


Alternate approach; closer to OP's original (and a surprise to me that it appears to work!)

#!/usr/bin/perl use 5.016; use warnings; use strict; my $prev_ctrlc = 0; if( ($prev_ctrlc == 0) || ($prev_ctrlc == 1) ) { $SIG{'INT'} = \&control_c_observed; sleep 1; for (1..1e3) { say "\t nothing yet"; sleep 2; } } sub control_c_observed { if ($prev_ctrlc == 0) { print "Second ctrl-c within 2 seconds required\n"; $prev_ctrlc = 1; } else { $prev_ctrlc++; } if ($prev_ctrlc == 2 ) { say "OK, that's two of 'em!"; exit; } }

Sample run:

C:\>C:\SQLite\ nothing yet nothing yet nothing yet # single tap here Second ctrl-c within 2 seconds required nothing yet nothing yet # double tap here OK, that's two of 'em! C:\>

The sleep's could annoy your users, as they might seem like the machine is (briefly) locking up.

If you didn't program your executable by toggling in binary, it wasn't really programming!

Comment on Re: Force 2 'ctrl-c's to kill program
Select or Download Code
Replies are listed 'Best First'.
Re^2: Force 2 'ctrl-c's to kill program
by Anonymous Monk on Feb 12, 2013 at 09:45 UTC
    Agreed on sleep. I need to stop using it and start remembering time instead. Cheers

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1018201]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (1)
As of 2015-10-04 22:43 GMT
Find Nodes?
    Voting Booth?

    Does Humor Belong in Programming?

    Results (105 votes), past polls