|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Artem Chuprina 2:5020/400 03 Dec 2001 15:18:20
To : "Saigo"
Subject : Re: прошу помочь с DB_File
--------------------------------------------------------------------------------
Здравствуй, Saigo.
S> добрый день
S> есть такой код:
S> #!/usr/bin/perl
S> use DB_File;
S> my %data;
S> $db=tie (%data,'DB_File',"news.dat") or die "невозможно инициализировать
S> базу данных: $!\n";
S> my $fd=$db->fd;
S> open (DB_FH, "+<&=$fd") or die "невозможно безопасно открыть файл: $!\n";
S> print "получение монопольной блокировки\n";
S> flock(DB_FH, LOCK_EX) or die "невозможно получить монопольную блокировку:
S> $!\n";
S> print "получена блокировка. готов к обновлению базы данных!\n\n";
S> flock(DB_FH,LOCK_UN);
S> untie %data;
S> close(DB_FH);
S> при выполнении на этапе flock(DB_FH, LOCK_EX) получаю:
S> невозможно получить монопольную блокировку: Invalid argument
S> умоляю, подскажите, что я делаю неправильно?
flock(DB_FH,LOCK_UN)
Если я правильно ошибаюсь, у DB_File если есть блокировки, то свои.
--
Artem Chuprina
RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/358.49, ICQ: 13038757
Отправлено через сервер Talk.Ru - http://www.talk.ru
--- ifmail v.2.15dev5
* Origin: Talk.Ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: прошу помочь с DB_File 
