generating html from perl

Nick Wedd · Oct 25, 2003

I have an html page, which I want to generate from a cgi script. I have
tried to do this by putting the entire html into a script like this:

#!/usr/bin/perl -w

print <<Whole_file;

<html>
<head>
.... all the rest of the html ....
</body>
</html>
Whole_file

This almost works. But my html includes some javascript, which includes
some escape sequences, some of which get expanded by this process. It
expands each "\n" in my javascript into "
", which I can live with. But it also expands
pattern = /\[([^)]+)/;
to
pattern = /[([^)]+)/;
although it does not expand
pattern = /\[([^(]*)\(([^)]*)\)([^]]*)/;

Is there a recommended way of getting round this? Ideally, I would like
it to leave all the html as it is.

Nick

Gunnar Hjalmarsson · Oct 25, 2003

Nick said:
I have an html page, which I want to generate from a cgi script. I
have tried to do this by putting the entire html into a script like
this:

#!/usr/bin/perl -w

print <<Whole_file;

<html>
<head>
.... all the rest of the html ....
</body>
</html>
Whole_file

This almost works. But my html includes some javascript, which
includes some escape sequences, some of which get expanded by this
process. It expands each "\n" in my javascript into "
", which I can live with. But it also expands
pattern = /\[([^)]+)/;
to
pattern = /[([^)]+)/;
although it does not expand
pattern = /\[([^(]*)\(([^)]*)\)([^]]*)/;

Is there a recommended way of getting round this? Ideally, I would
like it to leave all the html as it is.

If you want to use the here-document syntax, you can do:

print <<'Whole_file';
------------^----------^

See http://www.perldoc.com/perl5.8.0/pod/perlop.html#<<EOF

Another approach is to keep the HTML page in a separate file, open and
read it into a variable, and print that variable.

Nick Wedd · Oct 25, 2003

Gunnar said:
Nick said:

I have an html page, which I want to generate from a cgi script. I
have tried to do this by putting the entire html into a script like
this:
#!/usr/bin/perl -w
print <<Whole_file;
<html>
<head>
.... all the rest of the html ....
</body>
</html>
Whole_file
This almost works. But my html includes some javascript, which
includes some escape sequences, some of which get expanded by this
process. It expands each "\n" in my javascript into "
", which I can live with. But it also expands
pattern = /\[([^)]+)/;
to
pattern = /[([^)]+)/;
although it does not expand
pattern = /\[([^(]*)\(([^)]*)\)([^]]*)/;
Is there a recommended way of getting round this? Ideally, I would
like it to leave all the html as it is.

Click to expand...

If you want to use the here-document syntax, you can do:

print <<'Whole_file';
------------^----------^

See http://www.perldoc.com/perl5.8.0/pod/perlop.html#<<EOF

Thank you. I now have the script working.

Another approach is to keep the HTML page in a separate file, open and
read it into a variable, and print that variable.

Nick

Louis Erickson · Oct 26, 2003

: In message <[email protected]>, Gunnar
:>Nick Wedd wrote:
<snip>
:>> Is there a recommended way of getting round this? Ideally, I would
:>> like it to leave all the html as it is.
:>
:>If you want to use the here-document syntax, you can do:
:>
:> print <<'Whole_file';
:>------------^----------^
:>
:>See http://www.perldoc.com/perl5.8.0/pod/perlop.html#<<EOF

: Thank you. I now have the script working.

:>Another approach is to keep the HTML page in a separate file, open and
:>read it into a variable, and print that variable.

If you've only one, you can use the DATA filehandle and __DATA__ keyword.

If you have a line in your script that reads only "__DATA__", anything after
that will be available via the DATA file handle.

(I don't know when this was introduced; it may not be true in every version
of Perl. Works in 5.6.0, and I suspect later.)

So, you can say:

# Bunch of Perl code...

print while(<DATA>);

# Bunch more perl code

__DATA__
<html>

</HTML>

Generating functions with Macros in Perl	6	Aug 26, 2011
How to push data from one HTML page to another	4	Jan 3, 2024
Big problem I need to solve with some unix utils	1	Jun 19, 2022
Generating HTML	0	Jul 29, 2013
Trying to get JSON data from API into HTML table	7	Feb 1, 2021
CORS/Express: Getting data from server from domain html	2	Sep 3, 2022
Generate one HTML from API based on the object key language and their value	2	Aug 19, 2022
Need help with <rowspan> in an HTML table	1	Nov 6, 2024

generating html from perl

Nick Wedd

Gunnar Hjalmarsson

Nick Wedd

Louis Erickson

Ask a Question

Similar Threads

Members online

Forum statistics

Latest Threads