ryuichi1208 https://blog.hatena.ne.jp/ryuichi1208/ 地方エンジニアの学習日記 https://ryuichi1208.hateblo.jp/ イディオム的に書いておく。 #!/usr/bin/perl use strict; use warnings; local $@; eval { local $SIG{ALRM} = sub { die "timeout!!\n"; }; alarm 2; sleep 3; # 時間のかかる処理 alarm 0; }; if ( $@ ) { print "exception: $@"; } alarm ${数字}を実行することでalarm(2)が呼び出される。manより抜粋 alarm() は SIGALRM シグナルを seconds 秒後に呼び出したプロセスに配送するように手配する。 s… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fryuichi1208.hateblo.jp%2Fentry%2F2021%2F10%2F04%2F000706" title="【Perl】アラームでタイムアウト - 地方エンジニアの学習日記" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2021-10-04 00:07:06 rich https://ryuichi1208.hateblo.jp/entry/2021/10/04/000706 1.0 100%