Perlで置換えの数を返す方法は？

Question

これは非常に基本的な質問ですが、私はグーグルで答えを見つけることはできません。私は、PHPのプログラムで多くのファイルに文字列を検索し、置き換えるためにperlへの単純な呼び出しやってる：

exec("perl -pi -e 's|foo|bar|g' `find . -name *.foo`"); 

を、私は代替品の数を返すようにコマンドをしたいと思います。 誰でもそのことを知っていますか？ ありがとうございます。それはそれらを一緒に追加するだけの簡単な作業ですので

Answer 1

s///オペレータは、行われた置換の数を返します。

perl -pi -e '$C+=s|foo|bar|g; END{print"$C\n"}' `find . -name *.foo` 

Answer 2

はこれを試してみてください。

のexec（ "perlの-pi -e" END {print（$ c）} $ c + = s | foo | bar | g 'find . -name *.foo "）;

置換回数が表示されます。その後、あなたのexecからそれを取り出すことができます。 番号をプロセスの戻り値にしたい場合は、次のように試してみてください。

exec（ "perl -pi -e 'END {exit（$ c）} $ c + = s | foo | bar | g 'find . -name *.foo "）;

しかし、前にも述べたように、PerlをPHPから呼び出すのは奇妙です。