Как установить таймер обратного отсчета в Perl для повторного выполнения функции?

Question

Я копирую файл из одного файла в другой. Я хочу проверить, доступен ли исходный файл или нет повторно каждые 10 секунд. Как я могу проверить это между копированием?

Answer 1

Может быть, я не до конца понимаю вопрос. Работает ли следующее?

use File::Copy;

sleep 10 until -e $source;
copy($source, $target);

Answer 2

Вы можете использовать -e файл test и sleep:

perl -e'$s = "/source/path"; sleep 10 until -e $s; `rsync $s /destination/path`'

если вы находитесь в Perl-скрипте:

#!/usr/bin/env perl
use warnings;
use strict;

# be careful if your paths contain spaces
my ($source, $dest) = qw(path/to/source path/to/dest);

sleep 10 until(-e $s);
system('rsync', $source, $dest);