Perl : Cant Find String Terminator

TP · Feb 11, 2004

i get the message Cant Find String Terminator anywhere before EOF
everytime i try to compile my script..

i hope someone will help

thanks

here is the code

#!/usr/bin/perl

use CGI;
my($query);
$query = new CGI;

##Configuration section

$dbpath = 'db.txt';

$searchwhat = $query->param("searchwhat");
$searchkey = $query->param ("searchkey");

##end of configuration

#Begin search section

open (DB, "<$dbpath") or die ("$!\n");

while (<DB>){
if ($searchwhat eq "all"){
if (/$searchkey/i){
push @matches, $_
};
}

elsif ($searchwhat eq "mtype"){
($mtype, $mname, $mactor, $mactress, $mdes) = split (/\|/);
if ($mtype =~ /$searchkey/i){
push @matches, $_
};
}

elsif ($searchwhat eq "mname"){
($mtype, $mname, $mactor, $mactress, $mdes) = split (/\|/);
if ($mname =~ /$searchkey/i){
push @matches, $_
};
}

elsif ($searchwhat eq "mactor"){
($mtype, $mname, $mactor, $mactress, $mdes) = split (/\|/);
if ($mactor =~ /$searchkey/i){
push @matches, $_
};
}

elsif ($searchwhat eq "mactress"){
($mtype, $mname, $mactor, $mactress, $mdes) = split (/\|/);
if ($mactress =~ /$searchkey/i){
push @matches, $_
};
}

elsif ($searchwhat eq "mdes"){
($mtype, $mname, $mactor, $mactress, $mdes) = split (/\|/);
if ($mdes =~ /$searchkey/i){
push @matches, $_
};
}
close(DB);

#end of search section

#start of response page

$nummatches = @matches;

print<<HTML_RESPOSE

Content-type: text/html
<HTML>
<BODY>

<h2>Your search for $searchkey return $nummatches matches.</h2>

foreach $matchedEntry (@matches){
print "$matchedEntry\n";
}

</BODY>
</HTML>
HTML_RESPONSE

Darren Dunham · Feb 11, 2004

TP said:
i get the message Cant Find String Terminator anywhere before EOF
everytime i try to compile my script..
[snip]

print<<HTML_RESPOSE
HTML_RESPONSE

A. Sinan Unur · Feb 12, 2004

TP said:
TP said:

i get the message Cant Find String Terminator anywhere before EOF
everytime i try to compile my script..
[snip]

print<<HTML_RESPOSE
HTML_RESPONSE

Click to expand...

Don't forget the terminating semi-colon:

print <<HTML_RESPONSE;
<html>
<body>
<ul>
<li>I will learn to spell right</li>
<li>I will learn to spell right</li>
<li>I will learn to spell right</li>
<li>I will learn to spell right</li>
<li>I will learn to spell right</li>
<li>I will learn to spell right</li>
....
</ul>
</body>
</html>
HTML_RESPONSE

Tad McClellan · Feb 14, 2004

Donald LaFramboise said:
print<<HTML_RESPOSE

needs a semicolon at the end of the line,

No it doesn't.

[snip TOFU, a clear indicator of the quality of the followup...]

Tad McClellan · Feb 14, 2004

TP said:
i get the message Cant Find String Terminator anywhere before EOF
everytime i try to compile my script..

print<<HTML_RESPOSE

Content-type: text/html
<HTML>
<BODY>

<h2>Your search for $searchkey return $nummatches matches.</h2>

foreach $matchedEntry (@matches){
print "$matchedEntry\n";
}

</BODY>
</HTML>
HTML_RESPONSE

Others have already pointed out the cause of your syntax error,
but nobody has told you that you can't interpolate code (like that).

A "here-doc" is a way of quoting a _string_, so that foreach() is
NOT seen as code, it is data.

If you want code in the middle of the string, you can have 3
statements: string_part1 then code then string_part2.

PERL : Cant find string terminator ..	1	Feb 11, 2004
Only one table shows up with the information	2	Mar 29, 2023
Efficiently searching multiple files	10	May 20, 2010
Perl Newbie Needs Help ASAP!	0	May 14, 2007
Once again: CGI help	3	Oct 6, 2009
CSV dB script help	9	Jun 2, 2004
Help with perl array	3	May 2, 2005
Newbie Question: How do I make this code snippet a loop?	2	Dec 1, 2007

Perl : Cant Find String Terminator

TP

Darren Dunham

A. Sinan Unur

Tad McClellan

Tad McClellan

Ask a Question

Similar Threads

Members online

Forum statistics

Latest Threads