|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Konstantin Stupnik {} 2:5020/400 03 Dec 2001 18:21:36
To : Artem Chuprina
Subject : Re: прошу помочь с DB_File
--------------------------------------------------------------------------------
Hi!
"Artem Chuprina" <ran@ice.ru> wrote in message
news:slrna0mnpg.ica.ran@party.ice.ru...
> Здравствуй, 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 если есть блокировки, то свои.
"Родных" вроде нет,
зато есть DB_File::Lock и еще набор модулей.
Что вобщем-то написано в доке, рядом с вышеприведённым
примером из оной же, но действительно неработающим.
Что странно вообще-то.
И так и сяк над ним бился - не работает :-\
А!!!!!
use Fcntl ':flock';
Гыыы!
use strict; # 4ever!!!
--
Best regards,
Konstantin.
Отправлено через сервер Talk.Ru - http://www.talk.ru
--- ifmail v.2.15dev5
* Origin: Talk.Ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
