|
|
|
Junior Member
 
участник
Last Login: 30.11.2002 0:30
Сообщ.: 20,
Visits: 221
|
|
Ну где здесь ошибка? Вроде с книжки списывал, всё сто раз перепроверял и всё равно эта ошибка 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 "<b>$_</b><p>"; #Имя
my($type, $prob);
$type=<GB>;
$prob=<GB>;
print "$type<p>";
print "$prob<br><hr>";
}
close(GB);
}
print header;
#Выполняется в результате нажатия кнопки submit
If (defined param('submit')) {
save;
display;
} else {
display;
}
|
|
|
|
|
Supreme Being
участник
Last Login: 20.09.2003 13:10
Сообщ.: 121,
Visits: 1 332
|
|
| вызывай функцию так: &display(); или опиши ее прототип.
|
|
|
|
|
Junior Member
участник
Last Login: 30.11.2002 0:30
Сообщ.: 20,
Visits: 221
|
|
| А что за прототип? Извиняюсь, но я ещё почти ничего не знаю по Perl :)
|
|
|
|