Multiline search replace with Perl

by

This kind of search and replace can be accomplished with a one-liner such as –

perl -i -pe 's/START.*STOP/replace_string/g' file_to_change

For more ways to accomplish the same thing check out this thread. To handle multi-line searches use the following command – 

perl -i -pe 'BEGIN{undef $/;} s/START.*STOP/replace_string/smg' file_to_change

In order to convert the following code from a one-liner to a perl program have a look at the perlrun documentation.

If you really find the need to convert this into a working program then just let Perl handle the file opening/closing for you.

#!/usr/bin/perl -pi
#multi-line in place substitute - subs.pl
use strict;
use warnings;

BEGIN {undef $/;}

s/START.*STOP/replace_string/smg;

You can then call the script with the filename as the first argument

$perl subs.pl file_to_change

If you want a more meatier script where you get to handle the file open/close operations(don’t we love all those ‘die’ statements) then have a look at the example in perlrun under the -i[extension] switch.

More Related Contents:

  1. Remove Text between two Strings
  2. Convert Bash script to Perl/VBS/any other windows compatible language [closed]
  3. Redirecting the perl script
  4. How can I troubleshoot my Perl CGI script?
  5. Why are Perl 5’s function prototypes bad?
  6. How is Perl’s @INC constructed? (aka What are all the ways of affecting where Perl modules are searched for?)
  7. How can I install Perl modules without root privileges?
  8. How do I compare two strings in Perl?
  9. What is the difference between ‘my’ and ‘our’ in Perl?
  10. Difference between &function and function() in perl [duplicate]
  11. Perl flags -pe, -pi, -p, -w, -d, -i, -t?
  12. Perl memory usage profiling and leak detection?
  13. What pseudo-operators exist in Perl 5?
  14. How does double arrow (=>) operator work in Perl?
  15. Why are Perl source filters bad and when is it OK to use them?
  16. Perl 5.20 and the fate of smart matching and given-when
  17. How can I convert the stringified version of array reference to actual array reference in Perl?
  18. How does Perl parse unquoted bare words?
  19. Perl build, unit testing, code coverage: A complete working example
  20. In Perl, how do I change, delete, or insert a line in a file, or append to the beginning of a file?
  21. In Perl, how can I find the index of a given value in an array?
  22. How can I run a system command in Perl asynchronously?
  23. How do I tell what type of value is in a Perl variable?
  24. What should I use for a Perl script’s shebang line?
  25. How can I find memory leaks in long-running Perl program?
  26. Why do Perl variables need to start with $, %,@ (sigils)?
  27. Print lines from one file that are not contained in another file
  28. Perl DBD::Oracle Module installation
  29. Explain the deviousness of the Perl “preamble”
  30. Why doesn’t Perl’s each() iterate through the entire hash the second time?

Leave a Comment