添え字を実行して 5 行の情報を収集する perl スクリプトがあります。現在、次のように行われています。
my @info = split(/\n/,`/script/directory/$devtype.pl $ip $port`);
ただし、私の制御外のさまざまな理由で、添え字がハングすることがあります。そのような場合は、添え字を停止して先に進みたいと思います。最善のアプローチは何でしょうか
- 添字の PID を取得する
- これらの 5 行の出力を待ち、設定されたタイムアウト前に出力が受信されない場合は pid を kill -9 します
私はuse
ingを考えていて、添え字Forks::Super
と共有@info
し、タイムアウトまで配列がいっぱいになるのを待つループを持っています。ただし、添え字を書き換えずにこれを実現する方法がわかりません。他のスクリプトとの下位互換性があるため、これは避けたいと思います。