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. 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;
}

$ftp->ChangeRemoteDir("AAWorkarea");

# Get the last-modified date/time information for the file "package.tgz"
print $ftp->getLastModifiedTimeByNameStr("package.tgz") . "\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();