Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations Shaun E on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

"Here Documents" don't work?

Status
Not open for further replies.
Meiguoren

Meiguoren

Technical User
Jun 16, 2008
4
Hello everyone,

I'm learning Perl via Mike Gossland's tutorial at The tutorial presents "here documents," apparently a holdover from UNIX that offers equivalent functionality to the explicit quoting operator, qq{}. Mike gives a nice example of how the operator works:

Code: 
print <<EOF;
Content-Type: text/html

<HTML>
<HEAD>
<TITLE>Hello World</TITLE>
</HEAD>
<BODY>
<H4>Hello World</H4>
<P>
Your IP Address is $ENV{REMOTE_ADDR}
<P>
<H5>Have a "nice" day</H5>
<p>Name:<input type="text" size="20" name="txt_name" value="name">
</BODY>
</HTML>
EOF

The problem: it doesn't work! I'm using the most recent version of Perl 5, and I always get an error like "can't find string terminator 'EOF' anywhere before EOF at line 1."

My only guess is that support for here documents has been deprecated. Any suggestions? Thanks!
 
Sort by date Sort by votes
You need to make sure EOF is the very first thing on the line.

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
[noevil]
Travis - Those who say it cannot be done are usually interrupted by someone else doing it; Give the wrong symptoms, get the wrong solutions;
 
Upvote 0 Downvote
Oh yeah.. make sure you hit enter after the EOF .

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
[noevil]
Travis - Those who say it cannot be done are usually interrupted by someone else doing it; Give the wrong symptoms, get the wrong solutions;
 
Upvote 0 Downvote
Thanks for the help!

The problem was the lack of a newline after the "EOF", as you suggested. Why is it necessary?
 
Upvote 0 Downvote
Evidently it is the terminator for a here doc.

------------------------------------------
- Kevin, perl coder unexceptional! [wiggle]
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

Tester_V
  • Locked
  • Question
Building graph produces error &quot;Cannot open gdgraph1.png:Permission denied&quot; 1
Replies
4
Views
564
Tester_V
Tester_V
esystems
  • Locked
  • Question
Perl script error &quot;500 SSL negotiation failed&quot;
Replies
0
Views
380
esystems
esystems
whn
  • Locked
  • Question
A very simple script does not work 1
Replies
4
Views
378
whn
whn
MoshiachNow
  • Locked
  • Question
how to use file added to .exe by pp with &quot;-a&quot; option ?
Replies
0
Views
250
MoshiachNow
MoshiachNow
Lectrician
  • Locked
  • Question
Back Ticks - can't get it to work.
Replies
8
Views
414
rharsh
rharsh

Part and Inventory Search

Sponsor

Back
Top