Не смог найти модуль на 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 другой процесс может в это время создать файл с таким же именем). |