#!/usr/bin/perl -w
use CGI qw( :standard);
my $param=param("param");
print "Content-type: text/html\n\n";
print "<HTML>";
print "<BODY>"
if (defined($param)) {
print "Param: $param";
}
print "</BODY>";
print "</HTML>";
[perl] ошибка в скрипте
Код:
Только вчера начал учить перл, вот мое первое творение, но оно как то не хочет запускаться. Интерпретатор ругается на строчку
Код:
if (defined($param)) {
Сори за беспокойство, только начал проверять пост на ошибки, как заметил отсутсвие точки с запятой.
Цитата:
print "<BODY>"
, а где ";", интерпретатор всегда ругается на строку, следующую после ошибочной, я имею ввиду только этот тип ошибок!