Я написал быстрый скрипт для загрузки файлов, используя библиотеку LWP :: Simple и ее функцию getstore (). Это работает довольно хорошо, но иногда загруженный файл не завершен. Я не знаю, что является причиной этого, но когда я загружаю его потом вручную, используя wget в файле командной строки, это нормально.
Я бы предположил, что поврежденные файлы вызваны разрывом соединения или чем-то подобным, хотя мой сценарий запускается по выделенной линии в соединении центра обработки данных, возможно, что-то между моим сервером и удаленным сервером
Это мой код:
sub download {
my $status = getstore($_[0], $_[1]);
if (is_success($status)) { return 1; } else { return 0; }
}
Каковы возможные решения этой проблемы? Как проверить, что передача прошла нормально и файл завершен и не поврежден?
Спасибо за ваши ценные ответы.