Perl - Заміна файлу

Проблема

Коли я перебуваю у своїй улюбленій оболонці, я виконую заміни через:

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

Я хотів би повторно використати цей файл заміни, але використовувати сценарій на Perl, щоб не запускатися в режимі онлайн

І я вважаю дурним використовувати a

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

як мені робити, ідеї?

Рішення

Ви можете використовувати це:

 $ file = "/etc/nagios/nrpe.cfg"; open (ФАЙЛ, "<$ файл"); @lines =; закрити ФАЙЛ; open (STDOUT, "> $ file"); для (@lines) {s + lib / nagios + lib64 / nagios + g; друк; } закрити STDOUT; 

Примітка

Завдяки Дубчеку за цей відгук.