Quick perl q =)

[Sean]

Nah that is what I used with an if ($_ eq "blah") to catch the
substitution spots. It works *shrugs* I didnt know if there was a better
way using seek or m/// or something. 




On 8 Jan 2001, Ben Pfaff wrote:

> Sean <picasso@madflower.com> writes:
> 
> > I have something that works, but basically I was bulk creating a website.
> > I have a page-form and need to insert two files or preformatted html
> > into it at certain spots. 
> 
> The commands
> 	open (INPUT, "<FILENAME");
> 	while (<INPUT>) {
> 		print OUTPUT $_;
> 	}
> 	close (INPUT);
> will open a file named FILENAME and output its contents to the
> file with handle OUTPUT.  Is that what you need?
> -- 
> "Then, I came to my senses, and slunk away, hoping no one overheard my
>  thinking."
> --Steve McAndrewSmith in the Monastery
>