Bareword found where operator expected

**crmpicco** · 06-20-2006 06:49 AM

This is my code:

Code:

#!C:/Perl/bin/perl.exe
# Simple Browser Identification

$browser = "$ENV{'HTTP_USER_AGENT'}";

# Declare Variables
$adrevenue;
$weePit;

$adrevenue = 1000;
$weePit = 'weeCrackPit';

print "Content-type: text/html\n\n";

print "<html>";
print "<head>";
print "<title>Simple Browser Checker</title>";
print "</head>";
print "<body>";
print "You are using $browser to view these pages!\n";
print "<br />";
print "<a href=\"www.crmpicco.co.uk\">Go to Picco\'s Site</a>";
print "<br />";
print "The revenue from the pages are $adrevenue";
print "<table>";
print "<tr>";
print "<td>";
print "Wee Pit is a $weePit";
print "</td>";
print "</tr>";
print "</table>;
	
print "</body>";
print "</html>";

ENDHTML;

this is my error is am getting:
==========================================
CGI Error
The specified CGI application misbehaved by not returning a complete set of HTTP headers. The headers it did return are:

Bareword found where operator expected at c:\inetpub\wwwroot\picco\browserCheck.pl line 34, near "print "
==========================================

Line 34 is print "</html>";

Why is this occuring?

Picco

**Charles** · 06-20-2006 07:01 AM

You've dropped a quatation mark:

print "</table>;

Do consider using the "HEREDOC" syntax.

**crmpicco** · 06-20-2006 07:33 AM

thanks Charles, i never noticed that. how does the HEREDOC syntax work? Is that the <<ENDHTML code????

**Charles** · 06-20-2006 07:37 AM

Originally Posted by crmpicco

thanks Charles, i never noticed that. how does the HEREDOC syntax work? Is that the <<ENDHTML code????

Yes. It looks like you started using it but abandoned the idea. You've the closing "ENDHTML" but not the opening.

**crmpicco** · 06-20-2006 07:39 AM

I'm getting this error now....
CGI Error
The specified CGI application misbehaved by not returning a complete set of HTTP headers. The headers it did return are:

Can't find string terminator "ENDHTML" anywhere before EOF at c:\inetpub\wwwroot\picco\browserCheck.pl line 15.
========================================

Code:

#!C:/Perl/bin/perl.exe
# Simple Browser Identification

$browser = "$ENV{'HTTP_USER_AGENT'}";

# Declare Variables
$adrevenue;
$weePit;

$adrevenue = 1000;
$weePit = 'weeCrackPit';

print "Content-type: text/html\n\n";

print <<ENDHTML;
print "<html>";
print "<head>";
print "<title>Simple Browser Checker</title>";
print "</head>";
print "<body>";
print "You are using $browser to view these pages!\n";
print "<hr>";
print "Hello and Welcome to My Page user from $ENV{'REMOTE_HOST'}\n";
print "<br />";
print "You came from $ENV{'HTTP_REFERER'}"
print "<a href=\"$ENV{'HTTP_REFERER'}\">";
print "Return to the page you were last at.</a>\n";

print "<a href=\"www.crmpicco.co.uk\">Go to Picco\'s Site</a>";
print "<br />";
print "The revenue from the pages are $adrevenue";
print "<table border=\'1\' bordercolor=\'#000000\'>";
	print "<tr>";
		print "<td>";
			print "Wee Pit is a $weePit";
		print "</td>";
	print "</tr>";
print "</table>";
	
print "</body>";
print "</html>";

ENDHTML;

line 15 is the <<ENDHTML code..........

**Charles** · 06-20-2006 07:52 AM

Try ENDHTML and not ENDHTML;. I'll admit, my Perl here-doc synatax is a bit rusty.

**crmpicco** · 06-20-2006 07:55 AM

yeah, that worked Charles. Having
print <<ENDHTML

and ENDHTML at the end odf the script works GREAT!!!!

i dont need to print everything like I thought i DID!!!
have you got any other tips or things to avoid doing for a Perl nooB

**Charles** · 06-20-2006 08:01 AM

A couple of tips:

1) Keep playing with things, constantly trying to reduce the number of key strokes.

2) Make sure that you have read http://www.ayni.com/perldoc/perl5.8....like-Operators .

3) Us the CGI.pm module if it's available: http://www.ayni.com/perldoc/perl5.8.0/lib/CGI.html .

4) Have fun.

**crmpicco** · 06-20-2006 08:27 AM

1. By keystrokes you mean how much code is in the script?
3. CGI.pm, i am presuming that is a downloadable Perl module. Also, i have seen CGI referred to alot, how does it differ from Perl and what advantages does it have?

Cheers.

Picco

**crmpicco** · 06-20-2006 08:32 AM

Code:

#!C:/Perl/bin/perl.exe
# Simple Browser Identification

$browser = "$ENV{'HTTP_USER_AGENT'}";

# Declare Variables
$adrevenue;
$weePit;
$AgePicco;
$AgeSmacker;

$adrevenue = 1000;
$weePit = 'weeCrackPit';
$AgePicco = 22;
$AgeSmacker = 22;
$CombinedAge = $AgePicco+$AgeSmacker;

print "Content-type: text/html\n\n";

print <<ENDHTML
<html>
<head>
<title>Simple Browser Checker</title>
</head>
<body>
You are using $browser to view these pages!\n
<hr>
Hello and Welcome to My Page user from $ENV{'REMOTE_HOST'}\n
<br />
You came from <a href=\'$ENV{'HTTP_REFERER'}\'>THIS PAGE</a>\n
<br />

<a href=\"www.crmpicco.co.uk\">Go to Picco\'s Site</a>
<br />
The revenue from the pages are $adrevenue
<table border=\'1\' bordercolor=\'#000000\'>
	<tr>
		<td>
			Wee Pit is a $weePit
		</td>
	</tr>
</table>

<div>The combined age of C and B is $CombinedAge</div>

</body>
</html>

ENDHTML

Superb!! That is my script after adding the <<ENDHTML and all the needless 'print' commands, if you can have a <<ENDHTML command and just write the script like a HTML page then why is there a great need for the print command???

Picco

**Charles** · 06-20-2006 10:20 AM

"<<ENDHTML" isn't a command. "<<" is a quote like operator. In Perl you can define any character or set of characters as a quotation mark. See http://www.ayni.com/perldoc/perl5.8....like-Operators .

**crmpicco** · 06-20-2006 12:14 PM

i'm not sure what you mean 'a quote like operator' does the << mean that it is the start of a ENDHTML type command?

**Charles** · 06-20-2006 12:24 PM

"ENDHTML " is not a command. You can use aything that you like with the "<<" operator.

Code:

#!C:/Perl/bin/perl.exe

print <<athanasius
Content-type: text/html

Whosoever will be saved, before all things it is necessary that he hold the Catholic Faith.
...
This is the Catholic Faith, which except a man believe faithfully, he cannot be saved.
athanasius

Thread: Bareword found where operator expected

Thread Tools

Display

Bareword found where operator expected

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions