🚀 go-pugleaf

Wouldn't it be easier to do this with sed?

-- 
Steven Ericsson Zenith - Sunnyvale, California.
mailto:Steven@TheTemple.com, http://www.TheTemple.com/Steven/
"Never confuse wisdom with luck." Rule #44

In article <4egegu$ktj@shellx.best.com>, Jeff Dilcher <dilcher@shellx.best.com> wrote:
>I have a whole set of web files; about 40 of them.
>I would like to change a block of text in each one
>(the text is a trailer section that is consistant in each one).
>
>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?
>
>Anyone have a little pointer about the best way to go about doing
>something like this?
>
>If I have to edit each file manually, and make the changes,
>I  might go insane!

I asked a similar question a few months ago, and a perl god, gamer,
and hiker responded with the following:

#Learn about
#
#    perl -00
#
#and the
#
#    s/foo/bar/s
#    s/foo/bar/m
#    s/foo/bar/sm
#
#flags.

Works great, although I think perl -0777 worked better for me.  As
far as I can tell, the latter three flags only work in perl 5.

Mike Linksvayer   http://www.au.com/ml/

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/
/_______\___  |	  | | |   |_______________________________________________

Thanks to all those who posted responses!
It appears there is a way to do this via command line
with Perl, but after playing around with the syntax for a while, 
I got frustrated.

I wound up using an old (but good) dos editor called q-edit
that I have.  It has some powerful macros, and it was able to
do the job very well.

Anyone have any idea if there is a windows editor with
decent macros built in?

Thanks again for everyones help,
-Jeff