perl - プロセスが実行されているかどうかを確認して強制終了します

Question

perl バージョン 5.8.4 を使用しています。

JMPというプログラムを使っています。プログラムを開く前に、perl を使用して、プログラムのプロセスが既に実行されているかどうかを確認します。実行中の場合は、閉じたいと思います。

Answer 1

これを追加するだけです：

use autodie 'system';
system('killall', '-q', 'JMP');

また

use autodie 'system';
system('pkill', 'JMP');

autodie を使用する代わりにエラー チェックを自分で処理したい場合は、次のようになります。

die "Can't launch killall: $!\n"                 if $? < 0;
die "killall killed by signal ".($? & 0x7F)."\n" if $? & 0x7F;
die "killall exited with error ".($? >> 8)."\n"  if $? >> 8;