RE: Долбанная синтаксическая ошибка :(

greenapple — Sun, 14 Apr 2002 01:03:00 GMT

А что за прототип? Извиняюсь, но я ещё почти ничего не знаю по Perl :)

RE: Долбанная синтаксическая ошибка :(

sunex — Sat, 13 Apr 2002 22:46:00 GMT

вызывай функцию так: &display(); или опиши ее прототип.

Долбанная синтаксическая ошибка :(

greenapple — Sat, 13 Apr 2002 20:34:00 GMT

Ну где здесь ошибка? Вроде с книжки списывал, всё сто раз перепроверял и всё равно эта ошибка syntax error in 50 line at "display" :help:
50 строка находится снизу четвёртой

#!/usr/bin/perl -wT
use strict;
use CGI qw(:all);
use Fcntl qw(:flock);

#Путь к файлу журнала гостевой книги
my $gbdata="/tmp/guestbook";
#Путь для файла семафора
my $semaphore_file="/tmp/book.sem";

#Функция блокировки
sub get_lock {
open(SEM, ">$semaphore_file") || die "Невозможно создан семофор: $!";
flock(SEM, LOCK_EX) || die "Невозможно заблокировать файл: $!";
}
#Отмена блокировки
sub release_lock {
close(SEM);
}

#Сохранение данных формы в файле
sub save {
get_lock();
open(GB, ">>$gbdata") || die "Невозможно открыть файл $gbdata: $!";
print GB "name: ", param('name'), "
";
print GB "type: ", param('probtype'), "
";
print GB "problem: ", param('problem'), "
";
close(GB);
release_lock();
}

#Отображение гостевой книги
sub display {
open(GB, $gbdata) || die "Невозможно открыть файл gbdata: $!";
while(<GB>){
print "$_"; #Имя
my($type, $prob);
$type=<GB>;
$prob=<GB>;
print "$type";
print "$prob <hr>";
}
close(GB);
}

print header;
#Выполняется в результате нажатия кнопки submit
If (defined param('submit')) {
save;
display;
} else {
display;
}

Релиб / Веб-программирование / Perl / Долбанная синтаксическая ошибка :( / Latest Posts

RE: Долбанная синтаксическая ошибка :(

RE: Долбанная синтаксическая ошибка :(

Долбанная синтаксическая ошибка :(