syntax error near print

[ITadvice]

I have the following lines in my code:

my $last_time = 0;
print $q->header("text/html\n\n"), #This is line 92
      $q->start_html(-title=>"Data Report"),
      "This is the report for~~<br>";

When I run the program, I keep getting "syntax error near 'print' line 92". I have used the same format in other codes but this is the only one that gives this error. How can I solve this? I changed $q so that it is now my $q = CGI->new; Is there something wrong with my format?

 

[audiopro]

#!perl

[red]use CGI;
use strict;[/red]

my $last_time = 0;
[red]my $q = new CGI;[/red]

print $q->header("text/html\n\n"), #This is line 92
$q->start_html(-title=>"Data Report"),
"This is the report for~~<br>";

This works for me with a few lines added

Keith

http://www.studiosoft.co.uk

 

[ITadvice]

Thanks Keith but I already had that in my code. I guess I should have mentioned that before.

 

[KevinADC]

$q = CGI->new; (this is OK)

There is no syntax error in the code you posted but try removing the \n\n part of the header as the CGI module takes care of that for you.

------------------------------------------
- Kevin, perl coder unexceptional!

 

[Kirsle]

[kirsle@fonalityxp ~]$ perl -c
my $last_time = 0;
print $q->header("text/html\n\n"), #This is line 92
      $q->start_html(-title=>"Data Report"),
      "This is the report for~~<br>";
__END__
- syntax OK

The code there is fine without using strict.

The syntax error may end up being up or down a couple of lines in the code (i.e. mismatched brackets or non-ending quotes or block of some sort), which is why it said "near" print.

-------------
Cuvou.com | My personal homepage

perl -e '$|=$i=1;print" oo\n<|>\n_|_";x:sleep$|;print"\b",$i++%2?"/":"_";goto x;'