如何使用Perl通過FTP檢查文件的大小？

Question

我有FTP Perl腳本，我想通過檢查傳輸到遠程服務器的字節數是否等於本地服務器中文件的實際字節數來確認文件傳輸是否完成。我怎麼能做到這一點？

這是我到目前爲止有：

my $ftp = Net::FTP->new($host, Debug => 1) 
or die "Could not connect to '$host': $@"; 

$ftp->login($user, $pw) 
or die sprintf "Could not login: %s", $ftp->message; 

$ftp->cwd($path) 
or die sprintf "Could not login: %s", $ftp->message; 

$ftp->ls; 

$ftp->binary; 

$ftp->get($file) 
or die sprintf "Could not login: %s", $ftp->message; 

Answer 1

從文檔，你可以使用大小（）

 
size (FILE) 

Returns the size in bytes for the given file as stored on the remote server. 

NOTE: The size reported is the size of the stored file on the remote 
server. If the file is subsequently transferred from the server in ASCII 
mode and the remote server and local machine have different ideas about 
"End Of Line" then the size of file on the local machine after transfer 
may be different. 

代碼：

my $host="127.0.0.1"; 
my $user="anonymous"; 
my $pw = "asdfsf"; 
my $path="pub"; 
my $file="file"; 
my $ftp = Net::FTP->new($host, Debug => 0) 
    or die "Could not connect to '$host': $@"; 

$ftp->login($user, $pw) or die sprintf "Could not login: %s", $ftp->message; 
$ftp->cwd($path) or die sprintf "Could not login: %s", $ftp->message; 
$ftp->binary; 
print $ftp->size($file) or die sprintf "Could not login: %s", $ftp->message; 
$ftp->quit(); 

Answer 2

print "FTP size = ", $ftp->size($file), "\n"; 
print "Local size = ", (-s $file), "\n";