(Perl) SFTP Get File Date/Times in Different Formats

See more SFTP Examples

Demonstrates how to get remote file date/times in different formats.

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

use chilkat();

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

$sftp = chilkat::CkSFtp->new();

# Connect to the SSH server.  
$hostname = "my-sftp-server.com";
$port = 22;
$success = $sftp->Connect($hostname,$port);
if ($success != 1) {
    print $sftp->lastErrorText() . "\r\n";
    exit;
}

# Authenticate with the SSH server. 
$success = $sftp->AuthenticatePw("myLogin","myPassword");
if ($success != 1) {
    print $sftp->lastErrorText() . "\r\n";
    exit;
}

# After authenticating, the SFTP subsystem must be initialized:
$success = $sftp->InitializeSftp();
if ($success != 1) {
    print $sftp->lastErrorText() . "\r\n";
    exit;
}

# Open a directory on the server...
# This example opens the "junk" directory located under the HOME directory of the SSH user account.
$handle = $sftp->openDir("junk");
if ($sftp->get_LastMethodSuccess() != 1) {
    print $sftp->lastErrorText() . "\r\n";
    exit;
}

# Download the directory listing:
# dirListing is a SFtpDir
$dirListing = $sftp->ReadDir($handle);
if ($sftp->get_LastMethodSuccess() != 1) {
    print $sftp->lastErrorText() . "\r\n";
    exit;
}

# Close the directory handle
$success = $sftp->CloseHandle($handle);
if ($success != 1) {
    print $sftp->lastErrorText() . "\r\n";
    exit;
}

# Iterate over the files.
# Examine each filename and indicate those that match *FICHERO*.pdf
# (i.e. the filename contains the word "FICHERO" and ends in ".pdf")
$i = 0;
$n = $dirListing->get_NumFilesAndDirs();
$sbFilename = chilkat::CkStringBuilder->new();
$caseSensitive = 0;
$bLocalDateTime = 0;
while ($i < $n) {
    # fileObj is a SFtpFile
    $fileObj = $dirListing->GetFileObject($i);
    print $fileObj->filename() . "\r\n";

    # Get the last-modified date/time
    # dt is a CkDateTime
    $dt = $fileObj->GetLastModifiedDt();

    # Get the date/time in any format offered by the CkDateTime object.

    # such as Wed, 18 Oct 2017 09:08:21 GMT
    print "RFC822 format: " . $dt->getAsRfc822($bLocalDateTime) . "\r\n";

    # such as 1990-12-31T23:59:60Z
    print "Timestamp: " . $dt->getAsTimestamp($bLocalDateTime) . "\r\n";

    # Such as: "02/16/2008 12:15:12"  where hour is 0 to 23.
    print "RFC822 format: " . $dt->getAsIso8601("MM/DD/YYYY hh:mm:ss",$bLocalDateTime) . "\r\n";

    $i = $i + 1;
}

print "Success." . "\r\n";