Perl - Zastępowanie pliku

Kwestia

Kiedy jestem w mojej ulubionej powłoce, noszę zamienniki przez:

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

Chciałbym ponownie użyć tego zastępczego pliku, ale użyj skryptu w Perlu, aby nie uruchamiać się online

I głupio jest używać

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

jak mam robić, pomysły?

Rozwiązanie

Możesz użyć tego:

 $ file = "/etc/nagios/nrpe.cfg"; otwórz (PLIK, „<$ plik”); @lines =; zamknąć plik; otwórz (STDOUT, "> $ plik"); for (@lines) {s + lib / nagios + lib64 / nagios + g; wydrukować; } zamknij STDOUT; 

Uwaga

Dziękuję Dubcekowi za tę wskazówkę.