Perl

Get Filenames in a Remote Directory

Gets the names of files in a remote FTP directory. 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);

# Connect and login to the FTP server.
$success = $ftp->Connect();
if ($success != 1) {
    print $ftp->lastErrorText() . "\r\n";
    exit;
}

# Iterate over .txt files.
$ftp->put_ListPattern("*.txt");
$n = $ftp->GetDirCount();
print "n = " . $n . "\r\n";

$i = 0;
while ($i < $n) {

    print $i . ": " . $ftp->getFilename($i) . "\r\n";

    $i = $i + 1;
}