(Perl) Delete Local Files that Do Not Exist on the FTP Server

Demonstrates how to get a list of local files in a directory tree that do not exist on the FTP server.

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

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("login");
$ftp->put_Password("password");

$ftp->put_KeepSessionLog(1);

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

# Set the current remote directory to the root of
# the remote tree to be compared.
$success = $ftp->ChangeRemoteDir("abc123");
if ($success != 1) {
    print $ftp->lastErrorText() . "\r\n";
    exit;
}

# Recursively descend the local directory tree
# and find the files that exist locally but not remotely.
# These are the files what would be uploaded via
# the SyncRemoteTree method call with mode = 1.
# (Mode 1 would upload all files that do not exist on the FTP server.)

# The actual uploading is avoided by setting the preview-only argument to 1.
$mode = 1;
$descendTree = 1;
$previewOnly = 1;
$success = $ftp->SyncRemoteTree2("/temp/abc123",$mode,$descendTree,$previewOnly);
if ($success != 1) {
    print $ftp->lastErrorText() . "\r\n";
    exit;
}

# The files what would've been uploaded are now available in the SyncPreview property,
# which contains a list of local file paths, one per line.
# A program can iterate over them like this:
$sa = chilkat::CkStringArray->new();
$sa->LoadFromText($ftp->syncPreview());

$fac = chilkat::CkFileAccess->new();

$numFiles = $sa->get_Count();
$i = 0;

while (($i < $numFiles)) {
    $localFilePath = $sa->getString($i);
    print $localFilePath . "\r\n";

    # An application can delete the file using Chilkat's file access object,
    # or it can choose to use the native file API available in the programming language:
    $success = $fac->FileDelete($localFilePath);
    if ($success != 1) {
        print "Failed to delete: " . $localFilePath . "\r\n";
    }

    $i = $i + 1;
}

$success = $ftp->Disconnect();