10分はまったのでメモ。 現在編集中の画面をロックする、という意味のロックサブルーチンを作って、コールするプログラムを書いた。 my $lock_time = lock($arg1, $arg2, $arg3, $arg4); ... sub lock { my ($arg1, $arg2, $arg3, $arg4) = @_; ... return; …