識別上傳狀態

Question

我使用perl Net :: FTP :: Recursive模塊將文件夾從本地上傳到FTP。我已經寫了下面的示例代碼。在該代碼中，我需要知道上傳過程的狀態，例如是否已上傳。

use strict; 
use Net::FTP:recursive; 

my $ftp_con= Net::FTP::Recursive->new('host.com',Debug=>0); 
$ftp_con->login('username','password'); 
$ftp_con->rput('d:\my_test','\root\my_test'); 
$ftp_con->quit; 

在上面的代碼中，我無法找到上傳的狀態。任何人都可以建議我獲取文件夾的上傳狀態，無論文件夾是否已上傳。

謝謝...

Answer 1

子類Net::FTP::Recursive覆蓋_rput。將回調掛鉤添加到foreach塊的末尾，並將當前文件$file和文件列表@files作爲參數傳入。

在代碼的主要部分中，每次調用回調時計數並計算從計數器和@files中元素的數量的進度。

Answer 2

首先你記得你通過ftf傳輸的文件夾名是什麼。如果傳輸速度如此之快，而且您無法監控它是否已經在服務器中，那麼可以使用其他方法來驗證它是否成功加載。 1.通過您的託管服務提供商登錄到您的網站的cPanel 2.找到傳統的文件管理器文件夾，然後單擊 3.選擇文檔根目錄中，單擊Go，然後開始看發現你通過FTP轉院您的文件夾名稱。