Perl - Ersetzen einer Datei

Problem

Wenn ich in meiner Lieblingsschale bin, trage ich Ersatz durch:

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

Ich möchte diese Ersatzdatei wiederverwenden, aber ein Skript in Perl verwenden, um nicht online zu laufen

Und ich finde es dumm, einen zu benutzen

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

Wie mache ich Ideen?

Lösung

Sie können dies verwenden:

 $ file = "/etc/nagios/nrpe.cfg"; open (FILE, "<$ file"); @lines =; Datei schließen; open (STDOUT, "> $ file"); für (@lines) {s + lib / nagios + lib64 / nagios + g; drucken; } close STDOUT; 

Hinweis

Vielen Dank an Dubcek für diesen Tipp.