SyntaxFix

[perl] Search and replace a particular string in a file using Perl

You could also do this:

#!/usr/bin/perl

use strict;
use warnings;

$^I = '.bak'; # create a backup copy 

while (<>) {
   s/<PREF>/ABCD/g; # do the replacement
   print; # print to the modified file
}

Invoke the script with by

./script.pl input_file

You will get a file named input_file, containing your changes, and a file named input_file.bak, which is simply a copy of the original file.

Examples related to perl

• The program can't start because api-ms-win-crt-runtime-l1-1-0.dll is missing while starting Apache server on my computer • "End of script output before headers" error in Apache • Perl - Multiple condition if statement without duplicating code? • How to decrypt hash stored by bcrypt • Split a string into array in Perl • Turning multiple lines into one comma separated line • String compare in Perl with "eq" vs "==" • how to remove the first two columns in a file using shell (awk, sed, whatever) • Find everything between two XML tags with RegEx • Difference between \w and \b regular expression meta characters