🚀 go-pugleaf

Jeff Dilcher <dilcher@shellx.best.com> wrote:
: I would like to change a block of text
	>snip<
: I am a little stumped about how to write a little perl 
: routine to do this.  Does Perl have a built in function
: that can identify and replace a whole block of lines of text?
	Could be, 'don't know enough of perl yet to tell you. :)

	But if you are *sure* that each line of this block is not
	found anywere else in the file, you could use a big stick
	approch like this:

#!/usr/bin/perl
while(<>) {
  chop;
  s/^complete line one of the original block$/line ONE\nTWO\n\THREE+ of new block/;
  s/^original line two$//;
  s/^original line three$//;
  s/^etc$//;
  print;
}
______
     /	Spelling mistakes?  Their couldn't be. -My modem is error correcting.
    /	
   /    Zenin@Best.com			---->>ROCKY HORROR ARCHIVE<<----
  /	 ___ 	__  o   __		   http://www.best.com/~zenin
 /	/___\ |/  \ | |/  \	       ftp://ftp.best.com:/pub/zenin/RHPS/
/_______\___  |	  | | |   |_______________________________________________