Re^2: ctrl + c on Win32 (signal handling)

Waking up once a second will improve your response time and cause negligible extra cpu usage.

I see... I can get quicker resonse. This seems good compromize for me.

But I suspect that in your real code you are wanting to do more in the while than just sleep?

Yes. What I do in real "while loop" is like this.

1. sleep 30 seconds
2. check database
3. image conversions if there is records

Thanks for your advice.

Comment on Re^2: ctrl + c on Win32 (signal handling)

Replies are listed 'Best First'.

Re^3: ctrl + c on Win32 (signal handling)
by remiah (Hermit) on Aug 26, 2011 at 21:06 UTC


use strict;
use warnings;

use Term::ReadKey;
ReadMode "raw"; #raw can capture ctrl + c
while(1){
        print "prompt>\n";
    #sleep 30 seconds
    my $char = ReadKey 30;
    next if (! defined $char);

    if (ord $char == 3 ){
        print "control + c\n";
        last;
    }
    
    #check database

    #process image
}
ReadMode "restore";
[download]

ReadMode "raw"; #raw can capture ctrl + c
BindEvent "keypress", sub {
    my ($keycode) = @_;
    if ($keycode == 3){
         ReadMode "restore";
         #disconnect database
         exit;
    }
};

#main loop
while(1){
    ReadKey 30;
    #check database
    #process images
}
ReadMode "restore";
[download]

　Re: Perl Hotkey/Shortcut

[reply]
[d/l]
[select]


Do you know where your variables are?
	PerlMonks