Search and replace a particular string in a file using Perl

Question

Possible Duplicate    How to replace a string in an existing file in Perl        I need to create a subroutine that does a search and replace in file     Here s the contents of myfiletemplate txt     CATEGORY1 youknow  lt PREF gt    CATEGORY2 your  lt PREF gt  goes here    Here s my replacement string  ABCD    I need to replace all instances of  lt PREF gt  to ABCD

User · Answer

A one liner   perl -pi back -e  s  lt PREF gt  ABCD g   inputfile

User · Answer

You could also do this      usr bin perl  use strict  use warnings     I     bak     create a backup copy   while   lt  gt        s  lt PREF gt  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

User · Answer

Quick and dirty      usr bin perl -w  use strict   open FILE    lt  tmp yourfile txt      die  File not found   my  lines    lt FILE gt   close FILE    foreach  lines             s  lt PREF gt  ABCD g     open FILE    gt  tmp yourfile txt      die  File not found   print FILE  lines  close FILE     Perhaps it i a good idea not to write the result back to your original file  instead write it to a copy and check the result first

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

Examples related to perl