Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Системное программирование > Скачивание файлов через FTP при обрыве связи

Автор: bamper 9.12.2008, 22:02

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

Подскажите пожалуйста как реализовать следующую задачу:
Надо периодически скачивать через FTP файлы. Имена файлов имеют вид типа:

Код


PEDI500BK.B000084539
PEDI500BK.B000084540
PEDI500BK.B000084541
...
PEDI500BK.B000084590

то есть последняя цифра увеличивается постоянно на один. Но (по непонятной причине) часто связь рвется, и приходиться продолжать загрузку с последнего скачанного файла.
Я использую следующий алгоритм:
1. поиск последнего скачанного файла -> $LastLocalFile;
2. поиск последнего файла на FTP -> $LastFtpFile (с примера: PEDI500BK.B000084590);
3. сравнение этих переменных:
- если одинаковы -> end,
- если не одинаковы -> "вырезание" номера из имени последнего скачанного файла (из PEDI500BK.B000084539 -> 84539) и докачка начиная с следующего (84539+1 = 84540).

Вопрос: как реализовать подстановку номера 84540 (последний скачанный файл + 1) в переменную $filename что бы соблюдалась маска PEDI500BK.B******** ?
$ftp->get($filename, '"$path");

Спасибо.

Автор: tolkien 9.12.2008, 23:29

Код


my $num = 84540;
my $s = sprintf("PEDI500BK.B%09s", $num);
print $s,"\n";

Автор: bamper 10.12.2008, 01:12

Цитата(tolkien @ 9.12.2008, 23:29)

Код


my $num = 84540;
my $s = sprintf("PEDI500BK.B%09s", $num);
print $s,"\n";

спасибо!