のperlからバッククォートで見つける呼び出す - 見つける：書き込みエラー：壊れたパイプ

Question

私はこのようなperlスクリプトから検索を呼び出しています：私はシェルからそれを実行した場合

 
    my $one_file = `find $search_dir -name "\*.$refinfilebase.search" -print | head -n 1`; 

、私はエラーを取得していません。また、$ one_fileに適切な値を返しますが、プロンプトで次のように表示されます。

なぜでしょうか？どのように私はこれを取り除くことができます見つける：書き込みエラー：壊れたパイプメッセージ？

Answer 1

（...私はあなたが投稿のコードを使用して、エラーメッセージを再現するために管理していなかったが、ので、おそらく私のこのエラーのないバージョンは、同様にあなたにエラーメッセージを与えるかもしれない）あなたはこれを試みることができる：

my $file = `find $search_dir -name "\*.ssf" -print -exec head -n 1 {} \\;`; 

ここで私がテストランから得たいくつかのサンプル出力です：

./tmp1.ssf 
HEADER PROTEIN         21-FEB-11  1PDB 

HTH

Answer 2

この「エラー」は完全に正常であると予想されます。

• 多くの出力行を（おそらく）出力するfindコマンドを実行しています。
• あなたはそれをheadに入力しています。これは1行の入力を受けた後に終了します。
• findコマンドは、もうリッスンしないパイプに残りの行を書き込もうとします（headが死んでいます）。
• findはエラーとなります。

エラーを取り除きたい場合は、単に実行します。

my $file = `find .... 2>/dev/null | head -n 1`; 

これはheadタッチにバッククォートやパイプでもないので、（自分の端末になってから発見から全く予測可能なエラーを維持しますエラーが出力されているstderr）。

Answer 3

なぜあなたはそれを処理するためのperlの方法がある場合、findとheadをバッククォートで使用していますか？すなわち：

• File::Find
• glob()
• opendir, readdir, grep
• ダイヤモンド演算子、例えば：my @files = <$refinfilebase.search>

あなたは何をしているかについての絶対的な確信しているとき、私は唯一のバッククォートを使用することをお勧めします、あなたにはないと私には思われます。あなたは、これを単に行うことであなたの現在の試みがうまくいくようにすることができます：

my @files = `find $search_dir -name "\*.$refinfilebase.search" -print` 
my $one_file = $files[0];