Perl - Замяна на файл

Проблем

Когато съм в любимата ми черупка, нося замествания чрез:

 / ng / lib64 / nagios / g '/etc/nagios/nrpe.cfg 

Бих искал да използвам този заместващ файл, но използвам скрипт в Perl, а не да стартирам онлайн

И ми е глупаво да използвам a

 система ("perl -pi -e" s / lib / nagios / lib64 / nagios / g '/etc/nagios/nrpe.cfg ") 

как да направя, идеи?

Решение

Можете да използвате това:

 $ file = "/etc/nagios/nrpe.cfg"; отворен (ФАЙЛ, "<$ файл"); @lines =; затвори ФАЙЛ; отворен (STDOUT, "> $ file"); за (@lines) {s + lib / nagios + lib64 / nagios + g; печат; } затвори STDOUT; 

Забележка

Благодарение на Дубчек за този съвет.