Use javascript in Perl CGI

Question

i am trying to run javascript in a perl CGI file. The code is as follows

#!C:\wamp\bin\perl\bin\perl.exe

$html = "Content-Type: text/html

<HTML>
<HEAD>
<TITLE>Hello World</TITLE>
<SCRIPT TYPE="TEXT/JAVASCRIPT">
alert("i am here");
</SCRIPT>
</HEAD>
<BODY>
<H4>Hello World</H4>
<P>
Your IP Address is $ENV{REMOTE_ADDR}
<P>
<H5>Have a nice day</H5>
</BODY>
</HTML>";

print $html;

I am getting an internal server error.

The code with just the html works fine Please let me know what has to be done to include javascript in Perl

cjm · Accepted Answer · 2015-04-27 14:44:30Z

6

You can't use double quotes inside your double-quoted string without escaping them. The internal server error is caused by Perl trying to tell you that

$html = "..."TEXT/JAVASCRIPT"..."i am here"...";

is not valid Perl code. If you check your server's error log, you'll see something like "Bareword found where operator expected at...".

The simpler solution is to use a here document:

#!C:\wamp\bin\perl\bin\perl.exe

use strict;
use warnings;

my $html = <<"END HTML";
Content-Type: text/html

<HTML>
<HEAD>
<TITLE>Hello World</TITLE>
<SCRIPT TYPE="TEXT/JAVASCRIPT">
alert("i am here");
</SCRIPT>
</HEAD>
<BODY>
<H4>Hello World</H4>
<P>
Your IP Address is $ENV{REMOTE_ADDR}
<P>
<H5>Have a nice day</H5>
</BODY>
</HTML>
END HTML

print $html;

edited Apr 27, 2015 at 14:44

answered Apr 20, 2015 at 6:18

cjm

62.2k9 gold badges133 silver badges179 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

serenesat · Accepted Answer · 2015-04-20 06:41:57Z

1

Use qq() when outputing HTML or JavaScript.

#!C:\wamp\bin\perl\bin\perl.exe
use warnings;
use strict;

my $html = qq(Content-Type: text/html

<HTML>
<HEAD>
<TITLE>Hello World</TITLE>
<SCRIPT TYPE="TEXT/JAVASCRIPT">
alert("i am here");
</SCRIPT>
</HEAD>
<BODY>
<H4>Hello World</H4>
<P>
Your IP Address is $ENV{REMOTE_ADDR}
<P>
<H5>Have a nice day</H5>
</BODY>
</HTML>);

print $html;

You can use {} instead of () as delimiters. see the document.

a {} represents any pair of delimiters you choose.

edited Apr 20, 2015 at 6:41

answered Apr 20, 2015 at 6:25

serenesat

4,72210 gold badges41 silver badges53 bronze badges

Comments

Georg Mavridis · Accepted Answer · 2015-04-26 12:34:53Z

0

As already pointed out the problem is the erroneous quoting.

As a small tip (besides fixing the quoting as mentioned above)

Add

use warnings;
use strict;

to the top of your script, so you can always check the syntax by executing perl -c

in your case:

C:\wamp\bin\perl\bin\perl.exe -c <filename>

this would have shown you the error immidiately.

HTH Georg

edited Apr 26, 2015 at 12:34

answered Apr 20, 2015 at 7:32

Georg Mavridis

2,3511 gold badge16 silver badges24 bronze badges

Collectives™ on Stack Overflow

Use javascript in Perl CGI

3 Answers 3

Comments

Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

3 Answers 3

Comments

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related