Re: Interrupting a loop

Under Tk, Ctrl+C no longer sends the INT signal. You can still bind <Control-c> to something, though.

Also, Tk already incorporates a loop: the MainLoop. Looping over short lists is probably OK, but introducing loops that might take a long time to iterate or have a high number of iterations is wrong, you should use Tk->repeat or Tk->after instead, see Tk::after.

#!/usr/bin/perl
use warnings;
use strict;

use Tk;

sub periodically {
    warn "Testing the file existence...\n";
}

my $mw = MainWindow->new(-title => 'Test');

my $repeat = $mw->repeat(1000, \&periodically);

$mw->bind('<Control-c>', sub { $mw->afterCancel($repeat) });

MainLoop();
[download]

Update: Added the example.

map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]

Comment on Re: Interrupting a loop Select or Download Code

Replies are listed 'Best First'.
Re^2: Interrupting a loop by etj (Priest) on Jul 28, 2024 at 13:43 UTC
To emphasise a point in choroba's excellent thought: when you want to juggle multiple events (a signal/button-click AND elapsed time), you need to stay in the idiom of the relevant event loop. In Tk, that's why you'd want to do the time-delay with Tk::after, not with sleep, so the event loop can quietly also watch for the button-click etc and react; `sleep` just suspends the whole process until the OS sends it a `SIGALRM`.	[reply] [d/l] [select]
Re^2: Interrupting a loop by cavac (Prior) on Jul 29, 2024 at 05:09 UTC
If there's a lot of data processing, it might also make sense to put it into it's own process (or thread) altogether and control it from the GUI with some kind if interprocess messaging. PerlMonks XP is useless? Not anymore: XPD - Do more with your PerlMonks XP Also check out my sisters artwork and my rather simple sketches/one-panel comics	[reply]
Re^2: Interrupting a loop by merrymonk (Hermit) on Jul 28, 2024 at 13:42 UTC
Thank you. I had not come across Tk->repeat etc before. So I now have my interruptible Perl Tk app working now.	[reply]
Re^3: Interrupting a loop by merrymonk (Hermit) on Jul 30, 2024 at 10:32 UTC
The reason I wanted CNTR-C to work was that the Buttons on my Tk GUI would not respond when the loop was processing. I now have found that using the Tk repeat for the loop means that I can use the Buttons. So the solution was even better than I first thought.	[reply]
Re^3: Interrupting a loop by jdporter (Paladin) on Jul 28, 2024 at 14:08 UTC
You should be using `<br/>`, not `</br>`. TIA. (I fixed your root post already.)	[reply] [d/l] [select]