如何使用perl在SFTP中查找文件的年齡？

Question

我正在連接SFTP並使用perl下載文件。我想下載1小時前創建/修改的文件。

以下是代碼片段。

use strict; 
use Net::SFTP::Foreign; 
my $sftp_conn=Net::SFTP::Foreign->new('test.sftp.com',user=>'test',password=>'test123'); 
my $a1 = Net::SFTP::Foreign::Attributes->new(); 
my $a2 = $sftp_conn->stat('/inbox/tested.txt') or die "remote stat command failed: ".$sftp_conn->status; 
$sftp_conn->get("/inbox/tested.txt","/tmp")); 

在這裏我想檢查文件的年齡在什麼時候它修改和計算在幾小時內。

Answer 1

您正處在正確的軌道上。在連接對象上調用->stat將返回一個Net::SFTP::Foreign::Attributes對象。然後你可以撥打->mtime來獲得修改時間。

my $attr = $sftp_conn->stat('/inbox/tested.txt') 
    or die "remote stat command failed: ".$sftp_conn->status; 
print $attr->mtime; 

沒有必要先創建一個空對象。您不需要以下行。您可能已從文檔中的概要中複製它，但這只是爲了顯示使用該模塊的不同方式。你可以刪除它。

my $a1 = Net::SFTP::Foreign::Attributes->new(); 

我不知道mtime會以哪種方式，所以我不能告訴你怎麼做比較。在文檔中，模塊代碼或測試中沒有任何關於此的內容。

快速谷歌suggested「YYYYMMDDhhmmss」，但這可能不是正確的。去嘗試一下。如果它是一個unix時間戳，可以將其與time或time - 3600進行比較，但如果它是一個字符串，則需要解析它。 Time::Piece是一個有用的模塊，與Perl核心來做到這一點。