You showed us an incomplete syntax. And given that you "cut and paste" your code, I wonder if you maybe failed to paste the entire syntax, just as you did in your example snippet here.
print << "THANKS";
Content-type: text/html
...is the beginning, and one line of a HERE document. But HERE docs must have an end tag. In the case of your code, everything from print << "THANKS"; on until you see THANKS a few lines later is all quoted material. If you didn't close your HERE doc, it could be runnning into the next THANKS tag, possibly where you copied and pasted this HERE-doc from.
Since your HERE doc is a double-quoted construct, variable interpolation occurs. And if your HERE doc is runaway, and subsequently closed with the closing token at some point later in the script, it's possible that variables which haven't yet been populated are being interpolated in your script.
Be sure to close your HERE docs, and if it is closed in your code, reflect that in your example snippets.
I should also mention that Perl's error reporting sees the entire multi-line HERE doc as all belonging to the line that contains the opening tag syntax. Hense, even if the problem is actually the fifth line of the HERE doc's text, the error will be reported as the line on which the opening tag is found.
I hope this helps! Good luck.
| [reply]
[d/l]
[select] |
Most likely you have an undefined variable in the here
doc that is following the mentioned line.
Abigail | [reply] |
Found the problem, but still not sure how to make a solution out of it.
I have a web interface for the perl script. html page with 9 input values making a get request.
I also have a perl script that sends data directly to the perl script.
The perl script only passes 3 of the values using lwp, causing the undefined error for the other 6 variables.
So anytime I submit data through the webpage, I don't get any errors. When my other perl scripts post data to the collector script, they don't pass the other values. I guess I could have my external scripts post null data like:
$val = "";
$val2 = "123";
$url = "http://localhost/get.pl?&val1=".$val."&val2=".$val2;
giving
http://localhost/get.pl?&val1=&val2=123
I think that should make the values defined in my collector script?
The rest of my other sub is included, but the above is certainly the problem. It's important that my script know whether the user intended to include data with his get, so I need to be able to differentiate the difference between 0 and null.
Thanks!
sub happy(){
print << "THANKS";
Content-type: text/html
<HTML>
<HEAD>
<TITLE>Trackerhappy :-)</TITLE>
</HEAD>
<BODY>
ID: $node<br>
Lat: $lat<br>
Lon: $lon<br>
</BODY>
</HTML>
THANKS
}
| [reply]
[d/l]
[select] |
$node, $lat or $lon are undefined. When you assign the values, add an || ''; - if it's ok for them to be empty. Eg
$node = defined $q->param('node')
? $q->param('node')
: '';
cLive ;-) | [reply]
[d/l] |
Would you please show us the complete sub happy? | [reply]
[d/l] |