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

See more SFTP Examples

Note: This example requires Chilkat v11.0.0 or greater.

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

use chilkat();

$success = 0;

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

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

# After authenticating, the SFTP subsystem must be initialized:
$success = $sftp->InitializeSftp();
if ($success == 0) {
    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() == 0) {
    print $sftp->lastErrorText() . "\r\n";
    exit;
}

# Download the directory listing:

$dirListing = chilkat::CkSFtpDir->new();
$success = $sftp->ReadDirListing($handle,$dirListing);
if ($success == 0) {
    print $sftp->lastErrorText() . "\r\n";
    exit;
}

# Close the directory handle
$success = $sftp->CloseHandle($handle);
if ($success == 0) {
    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")
$fileObj = chilkat::CkSFtpFile->new();
$sbFilename = chilkat::CkStringBuilder->new();
$caseSensitive = 0;
$bLocalDateTime = 0;

$dt = chilkat::CkDateTime->new();
$i = 0;
$n = $dirListing->get_NumFilesAndDirs();
while ($i < $n) {

    $success = $dirListing->FileAt($i,$fileObj);
    if ($success == 0) {
        print $dirListing->lastErrorText() . "\r\n";
        exit;
    }

    print $fileObj->filename() . "\r\n";

    # Get the last-modified date/time
    $dt->SetFromRfc822($fileObj->lastModifiedTimeStr());

    # Get the date/time in other formats 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";