VPF::Lock текстовых файлов - Форум программистов

ansiTeam

Дата 29.1.2013, 09:14 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 29.1.2013

Репутация: нет
Всего: нет

Здравствуйте

Использую две функции, одну для блокировки, вторую для раблокирования:

Код


sub lock {
    my ($lockid) = @_;
    open(my $fhpid, '>', $lockid) or die "error: open '$lockid': $!";
    print "Waiting for lock $lockid\n";
    flock($fhpid, LOCK_EX);
    return $fhpid;
}

sub unlock {
    my ($lockid) = @_;
    print "$lockid is unlocked\n";
    flock($lockid, LOCK_UN);
}

Между вызовами функций lock() и unlock() находится некий код

Код


lock("$fileName");

Некий код

unlock("$fileName");

Подскажмите, пожалуйста
Если в коде между функциями произойдёт исключение, то файл сам разлочится или нет???
Если нет, то как его можно разлочить после произошедшего исключения!?!?

Это сообщение отредактировал(а) ansiTeam - 29.1.2013, 09:23

arto

Дата 29.1.2013, 09:20 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40

он у вас не разлочится в любом случае, вы теряете манипулятор файла.

DurRandir

Дата 29.1.2013, 13:21 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 335
Регистрация: 27.9.2009

Репутация: 14
Всего: 17

a) Проверяйте коды возврата flock
б) flock требует хэндла, а в unlock вы передаёте что? Путь?
в) В случае смерти процесса - блокировка теряется. Но если ваше исключение не приведёт к этому, а будет поймано где-то выше по стеку, используйте что-нибудь из серии Guard/Scope::Guard/Scope::Upper для гарантированного выполнения кода unlock'a в случае выхода из блока.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »