VPF::Модуль для инкрементного touch файла

Logo

Дата 14.7.2016, 14:19 (ссылка)

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

Загрузка ...

Опытный

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

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

Не смог найти модуль на CPAN, возможно кто-то знает? Нужен модуль для создания файла с именем, к которому добавлено "_N", если такой файл уже существует.
Можно конечно написать простой цикл

Код


my $file_name_tpl = '...';
my $file_name = $file_name_tpl;
my $i = 0; 
while(-e $file_name) {
    $file_name = $file_name_tpl . "_" . ++$i;
}
touch($file_name);

Но это будет по понятным причинам не потокобезопасно (т.к. после того как мы прошли цикл while другой процесс может в это время создать файл с таким же именем).

Bulat

Дата 15.7.2016, 15:06 (ссылка)

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

Загрузка ...

татарский Нео

Профиль
Группа: Завсегдатай
Сообщений: 1701
Регистрация: 22.3.2006
Где: Альметьевск

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

А что мешает семафорить?

--------------------

менеджер по кодеврайтингу smile

Logo

Дата 23.7.2016, 20:43 (ссылка)

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

Загрузка ...

Опытный

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

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

Правильно тут использовать sysopen с флагами O_CREAT|O_WRONLY|O_EXCL и пробовать снова, если произошла ошибка "Файл существует". Но поскольку в моем случае вероятность конфликта все же мизерная, не стал усложнять код.

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