(Perl) FTP Iterate over Files in Directory Matching ListPattern

See more RSA Examples

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

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("my_login");
$ftp->put_Password("my_password");
$ftp->put_Port(21);
$ftp->put_AuthTls(1);

$success = $ftp->Connect();
if ($success != 1) {
    print $ftp->lastErrorText() . "\r\n";
    exit;
}

# Change to the "images" sub-directory located under our FTP account's home directory.
$success = $ftp->ChangeRemoteDir("images");
if ($success != 1) {
    print $ftp->lastErrorText() . "\r\n";
    exit;
}

$ftp->put_ListPattern("*.png");

# Fetch the current remote directory contents by calling GetDirCount
$n = $ftp->GetDirCount();
if ($n < 0) {
    print $ftp->lastErrorText() . "\r\n";
    exit;
}

$i = 0;

$sbLocalPath = chilkat::CkStringBuilder->new();

while ($i < $n) {
    $filename = $ftp->getFilename($i);
    print $filename . "\r\n";

    # Download this file.
    $sbLocalPath->SetString("qa_output/");
    $sbLocalPath->Append($filename);
    $success = $ftp->GetFile($filename,$sbLocalPath->getAsString());
    if ($success != 1) {
        print $ftp->lastErrorText() . "\r\n";
        exit;
    }

    $i = $i + 1;
}