外部コマンドを使わずにPerlでスレッド/プロセスをリストして強制終了するには？

Question

は、私が（存在する場合）のPerlアプリケーションでをいくつかのプロセスとスレッドを殺すする必要がありますが、私のようなps、grep、awk、cut、uniqまたはkillを外部コマンド（複数可）を使用したくありません。

私の現在のコードは次のとおりです。私の記憶が限られているので、私は、VPSを使用しています

 my $appName = $0; 
     $appName =~ s/^.*\/([^\/]*)$/$1/; 
     $_ = qx(kill -9 `ps -eLao pid,command | grep '$appName\[ 0-9\]*\$' | 
       grep -v grep | awk '\$1 != $$' | cut -d' ' -f1 | uniq` 2>&1); 

。上記のコードは、システムが外部コマンドの呼び出しのためにメモリを割り当てることができないため、時々undefを返します。私は外部コマンドを使用せずに代替ソリューションを探しています。

Answer 1

killと/proc fsなどの内部強制コマンド、またはWin32::Process::Listなどの一部のモジュール、またはProc::名前空間のものを使用します。