(Perl) Get the Last-Modified Date/Time for one File by Name

Demonstrates how to get the last-modified date/time for a file on the FTP server by specifying the remote file path.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

# 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 != 1) {
    print $ftp->lastErrorText() . "\r\n";
    exit;
}

$ftp->ChangeRemoteDir("AAWorkarea");

# Get the last-modified date/time information for the file "package.tgz"
# dt is a CkDateTime
$dt = $ftp->GetLastModDtByName("package.tgz");
if ($ftp->get_LastMethodSuccess() == 0) {
    print $ftp->lastErrorText() . "\r\n";
    exit;
}

print $dt->getAsTimestamp(0) . "\r\n";

# Show the session log so we can see the details of the date/time information 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();