Perl - ファイルを置き換える

問題

私が私の大好きなシェルにいるとき、私は次のものを通して置き換えを運びます

 perl -pi -eの/ lib \ / nagios / lib64 \ / nagios / g '/etc/nagios/nrpe.cfg 

この置換ファイルを再利用したいのですが、オンラインで実行するのではなく、Perlのスクリプトを使用してください

そして私はそれを使用することが愚かだと思う

 system（ "perl -pi -eの/ lib \ / nagios / lib64 \ / nagios / g '/etc/nagios/nrpe.cfg"） 

アイディアはどうすればいいですか。

溶液

これを使うことができます：

 $ file = "/etc/nagios/nrpe.cfg"; open（FILE、 "<$ file"）; @lines =; FILEを閉じます。 open（STDOUT、 "> $ file"）; （@line）{s + lib / nagios + lib64 / nagios + g; 印刷する STDOUTを閉じます。 

注意

このヒントをくれたDubcekに感謝します。