|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Roman Povelicyn 2:5020/400 05 Apr 2002 13:47:10
To : All
Subject : Блокировка и Storable
--------------------------------------------------------------------------------
Будь здоров, All!
#Открываю файл и ставлю блокировку:
sysopen(FD, "file", O_RDWR|O_CREAT, 0666) || die;
binmode(FD);
flock(FD, LOCK_EX) || die;
#юзаю Storable:
if (-s "file") {
$ref = retrieve_fd(*FD)||die;
}
... # Действия с %{$ref}
# пытаюсь сохранить структуру
store_fd($ref,*FD)||die "Cant store: $!";
умирает ^^^ при попытке сохранения структуры в
случае, если до этого структура уже загружалась.
Win2000+APerl5.6build631.
Это так у всех, или только на вышеназванной платформе?
Если так и должно работать, то как гарантировать то, что одни процессы
не прочитают структуру, которые другие процессы уже изменили, но еще
не сохранили?
--
WBR, Roman
--- ifmail v.2.15dev5
* Origin: Rinet Corp. News Service, Novosibirsk, Russia (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
