Статус загрузки файлов в модуль perl Net :: FTP

Question

Я загружаю файлы с локального на FTP с помощью модуля perl Net :: FTP.После загрузки файла, как я могу получить статус в скалярной переменной, что файл был загружен успешно или нет?Я использую код, который упоминается ниже.

use strict;
use Net::FTP;


my $ftp_connection=Net::Ftp->new('debian1.com');
$ftp_connection->login("myuser","password");
$ftp_connection->put('D:/to_upload/tested.xml','/root/received/tested.xml');
$ftp_connection->quit;

Пожалуйста, предоставьте ваши ценные предложения для выполнения вышеуказанной задачи.Можно ли передать файл в двоичном режиме?

Примечание: я разрабатываю это в ОС Windows.

Спасибо ...

Answer 1

$ftp_connection->put('D:/to_upload/tested.xml','/root/received/tested.xml'); код возвращает имя файла с /root/received/tested.xml в случае успеха, иначе он вернет undef и в двоичном режиме до put добавление метода $ftp_connection->binary(); надеюсь, что приведенный ниже код поможет вам в ваших потребностях

use strict;
use Net::FTP;


my $ftp_connection=Net::Ftp->new('debian1.com');
$ftp_connection->login("myuser","password");
$ftp_connection->binary();

if($ftp_connection->put('D:/to_upload/tested.xml','/root/received/tested.xml')) {
    print "successful transfer"
} else {
    print "unsuccessful transfer"
}
$ftp_connection->quit;

Answer 2

1. Проверьте $ftp_connection->message.

2. . Напишите это утверждение перед загрузкой файла для передачи в двоичном режиме.

   $ ftp_connection-> двоичный файл