Perl - Nahrazení souboru

Problém

Když jsem v mém oblíbeném shellu, nosím náhrady prostřednictvím:

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

Chtěl bych znovu použít tento náhradní soubor, ale použít skript v Perlu, ne spustit online

A považuji za hloupé používat

 systém ("perl -pi -e 's / lib / nagios / lib64 / nagios / g' /etc/nagios/nrpe.cfg") 

jak mám dělat, nápady?

Řešení

Můžete použít toto:

 $ file = "/etc/nagios/nrpe.cfg"; open (SOUBOR, "<$ file"); @lines =; zavřít SOUBOR; open (STDOUT, "> $ file"); pro (@lines) {s + lib / nagios + lib64 / nagios + g; vytisknout; } zavřít STDOUT; 

Poznámka

Děkujeme Dubčekovi za tento tip.