New to Perl

Brett Irving · Jul 29, 2003

Hi I am new to perl and am trying to do some test functions that will
let me substitute html from one file into another using markers ie.

<HTML>

<HEAD>
</HEAD>

<BODY>

</BODY>

</HTML>

Is there any easy way I can go about doing this??
any help would be appreciated.

Gunnar Hjalmarsson · Jul 29, 2003

Brett said:
I am new to perl

What has that to do with your problem?

and am trying to do some test functions that will let me substitute
html from one file into another using markers

Let us see what you have done so far. Doing so will increase your
chances to get help.

Tad McClellan · Jul 29, 2003

Brett Irving said:
let me substitute html

perldoc -q HTML

How do I remove HTML from a string?

from one file into another

perldoc -q file

How do I change one line in a file/delete a line in a
file/insert a line in the middle of a file/append to the
beginning of a file?

using markers

There are lots of templating systems already developed:

http://search.cpan.org/search?query=Template&mode=all

Garry Short · Jul 29, 2003

Brett said:
Hi I am new to perl and am trying to do some test functions that will
let me substitute html from one file into another using markers ie.

<HTML>

<HEAD>
</HEAD>

<BODY>

</BODY>

</HTML>

Is there any easy way I can go about doing this??
any help would be appreciated.

Assuming the above file is in template.html, and the new content is in
content.html, something like this would work:

open TEMPLATE, "template.html" or die "Can't open template.html: $!\n";
open CONTENT, "content.html" or die "Can't open content.html: $!\n";
open OUTFILE, ">outfile.html" or die "Can't write to $outfile: $!\n";
while ($t = <TEMPLATE>) {
if ($t =~ //) {
while ($c = <CONTENT>) {
print OUTFILE "$c";
}
} else {
print OUTFILE "$t";
}
}
close TEMPLATE;
close CONTENT;
close OUTFILE;

HTH,

Garry

Tad McClellan · Jul 29, 2003

Garry Short said:
Brett Irving wrote:

something like this would work:

^^^^^^^^^^

No it won't...

if ($t =~ //) {

^^^ ^^^ ^^^

if ($t =~ //) {

But pattern matching is not the Right Tool, since we are not
looking for a pattern.

We are looking for a constant string, so this would be better:

print OUTFILE "$c";

A useless use of double quotes.

perldoc -q quot

What's wrong with always quoting "$vars"?

A. Sinan Unur · Jul 29, 2003

(e-mail address removed) (Brett Irving) wrote in

Hi I am new to perl and am trying to do some test functions that will
let me substitute html from one file into another using markers ie.

<HTML>

<HEAD>
</HEAD>

<BODY>

</BODY>

</HTML>

This can get way out of hand rather quickly. You might want to take a
look at HTML::Template at search.cpan.org.

Tad McClellan · Jul 29, 2003

[ snip code with mistakes ]

That's what happens when you post code without really thinking about
it

No, that's what happens when you post code without testing it first.

If you merely test your code before offering it to thousands of people
around the world, then such a problem can be avoided without the
added effort of thinking.

Garry Short · Jul 29, 2003

Tad said:
^^^ ^^^ ^^^

if ($t =~ //) {

<SIGH> That's what happens when you post code without really thinking about
it - cheers for correcting that, Tad, should have picked that up myself

Steve Grazzini · Jul 29, 2003

This is great (and funny) advice -->

Tad McClellan said:
If you merely test your code before offering it to thousands of
people around the world, then such a problem can be avoided without
the added effort of thinking.

Of course you need somebody to say "Right.. I wasn't thinking"
as a set-up. (There never seems to be a shortage.) Anyway, I
think some similar advice for Answerers would be helpful in the
Posting Guidelines.

Tad McClellan · Jul 30, 2003

Steve Grazzini said:
I
think some similar advice for Answerers would be helpful in the
Posting Guidelines.

That occurred to me too when I typed the above for the 2nd time in 2 days.

Garry Short · Jul 30, 2003

Tad said:
That occurred to me too when I typed the above for the 2nd time in 2 days.

Sounds like a repetitive task to me ... have you considered writing a perl
script to automate it?

;-)

New to coding - image to the time of day based on time	2	May 14, 2022
Suggestions for new Website project	3	Feb 1, 2024
non-working perl script under Windows 2008	8	Feb 24, 2014
Old dog trying to learn new tricks.	4	Jun 25, 2023
Script stops working when using variables to save time typing...	4	Oct 31, 2022
I'm about to get in trouble with the HTML <body></body> tags	10	Aug 12, 2023
Simple web framework - improvements to makefile	0	Feb 1, 2023
New to this forum ... looking for direction	8	Sep 12, 2020

New to Perl

Brett Irving

Gunnar Hjalmarsson

Tad McClellan

Garry Short

Tad McClellan

A. Sinan Unur

Tad McClellan

Garry Short

Steve Grazzini

Tad McClellan

Garry Short

Ask a Question

Similar Threads

Members online

Forum statistics

Latest Threads