|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Saigo 2:5020/400 03 Dec 2001 14:14:35
To : All
Subject : прошу помочь с DB_File
--------------------------------------------------------------------------------
добрый день
есть такой код:
#!/usr/bin/perl
use DB_File;
my %data;
$db=tie (%data,'DB_File',"news.dat") or die "невозможно инициализировать
базу данных: $!\n";
my $fd=$db->fd;
open (DB_FH, "+<&=$fd") or die "невозможно безопасно открыть файл: $!\n";
print "получение монопольной блокировки\n";
flock(DB_FH, LOCK_EX) or die "невозможно получить монопольную блокировку:
$!\n";
print "получена блокировка. готов к обновлению базы данных!\n\n";
flock(DB_FH,LOCK_UN);
untie %data;
close(DB_FH);
при выполнении на этапе flock(DB_FH, LOCK_EX) получаю:
невозможно получить монопольную блокировку: Invalid argument
умоляю, подскажите, что я делаю неправильно?
заранее огромное спаисбо за помощь
Евгения
--- ifmail v.2.15dev5
* Origin: Peterlink News System (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
