Perl

Get Last Modified Date/Time of Files in a Remote Directory

Gets the last-modified date/times of files in a remote FTP directory. Perl

use chilkat();

$success = 0;

# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

$ftp = chilkat::CkFtp2->new();

$ftp->put_Hostname("ftp.example.com");
$ftp->put_Username("myLogin");
$ftp->put_Password("myPassword");
# Use explicit TLS
$ftp->put_AuthTls(1);
$ftp->put_Port(21);

# For debugging, turn on session logging so we can examine what is sent by the server.
$ftp->put_KeepSessionLog(1);

# Connect and login to the FTP server.
$success = $ftp->Connect();
if ($success == 0) {
    print $ftp->lastErrorText() . "\r\n";
    exit;
}

# Iterate over .txt files.
$ftp->put_ListPattern("*.txt");
$n = $ftp->GetDirCount();
print "n = " . $n . "\r\n";

$i = 0;
while ($i < $n) {
    print $i . ": " . $ftp->getFilename($i) . ", " . $ftp->getLastModifiedTimeStr($i) . "\r\n";
    $i = $i + 1;
}

# Show the session log so we can see the details of the FTP directory listing sent by the server.
# This tells us what information is available.  Some FTP servers provide better and more accurate information
# than others.

print "---- Session Log ----" . "\r\n";
print $ftp->sessionLog() . "\r\n";

$ftp->Disconnect();