Perl - Remplacement d'un fichier

Problème

Quand je suis dans ma coquille préférée, je porte des remplaçants via:

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

Je voudrais réutiliser ce fichier de remplacement, mais utiliser un script en Perl, ne pas exécuter en ligne

Et je trouve ça stupide d’utiliser un

 système ("perl -pi -e '/ lib \ / nagios / lib64 \ / nagios / g' /etc/nagios/nrpe.cfg") 

comment je fais, des idées?

Solution

Vous pouvez utiliser ceci:

 $ file = "/etc/nagios/nrpe.cfg"; open (FILE, "<$ file"); @lines =; Fermer le fichier; open (STDOUT, "> $ file"); pour (@lines) {s + lib / nagios + lib64 / nagios + g; impression; } close STDOUT; 

Remarque

Merci à Dubcek pour ce conseil.