|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Sergey Golotvin 2:5020/400 14 Feb 2001 22:08:19
To : All
Subject : Корифеи - ваш час..... или не ваш.
--------------------------------------------------------------------------------
Всем привет кого не вижу.
Есть Система: Apache и Perl под Виндами
#!/usr/bin/perl
use Fcntl qw(:flock);
$basedir = "/usr/local/apache/htdocs";
$lockfile = "lock.txt";
#При попытке вызова функции get_lock и release_lock - ошибка сервера
#[error] [client 127.0.0.1] Premature end of script headers:
f:/usr/local/apache/cgi-#bin/lck.pl
# всё без вызовов работает.
# думал ошибка синтаксиса написания вызова функции, - нет, потому
# что файл открывается и в него пишется,
# то есть видимо ошибка со строчки начинающейся с flock, может что надо
# проверить, ежели я упустил или
# возможно не используется этот
# модуль под Виндами, если так, то как реализовать програмное ожидание,
# Отладка под Виндами, перенос под UNIX реального сервера, поэтому тупой
# цикл до миллиона,
# не желателен,
# то есть если файл открыт и в него пишут => жду столько то, чтобы потом
# записаться, или чё? Вообщем, плиз, от намёка тире варианта, до
отсылки.
#
get_lock();
release_lock();
sub get_lock {
open(SEM, ">$basedir/$lockfile") || die "$!";
print SEM "CHECK \n";
flock(SEM, LOCK_EX) || die "$!"; :
}
sub release_lock {
close(SEM);
}
.
--
--- ifmail v.2.15dev5
* Origin: MTU-Intel ISP (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
