07/01/20 22:02:59
use threads;
use threads::shared;
# 終了の合図
my $kill:shared = 0;
# スレッド作成
my $thread = threads->new(\&loop);
処理...
$kill = 1;
$thread->join;
sub loop {
while (!$kill) {
処理...
sleep(60);
}
}
少し長くてすみません…。
マルチスレッドでwaitを挟みつつ処理を行い
任意のタイミングで終了させるプログラムを組んでいるのですが、
このコードだと終了用の変数をセットしてから処理が戻るまで60秒もかかってしまいます。
何かいい方法はないでしょうか
よろしくお願いします。