Perl

Delete Local Files that Do Not Exist on the FTP Server

See more FTP Examples

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

use strict;
use warnings;
use Chilkat2;

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

my $ftp = Chilkat2::Ftp2->new;

$ftp->Hostname('ftp.example.com');
$ftp->Username('login');
$ftp->Password('password');

$ftp->KeepSessionLog(1);

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

# Set the current remote directory to the root of
# the remote tree to be compared.
$success = $ftp->ChangeRemoteDir('abc123');
if (!$success) {
    print $ftp->LastErrorText, "\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.
my $mode = 1;
my $descendTree = 1;
my $previewOnly = 1;
$success = $ftp->SyncRemoteTree2('/temp/abc123', $mode, $descendTree, $previewOnly);
if (!$success) {
    print $ftp->LastErrorText, "\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:
my $sa = Chilkat2::StringArray->new;
$sa->LoadFromText($ftp->SyncPreview);

my $fac = Chilkat2::FileAccess->new;

my $numFiles = $sa->Count;
my $i = 0;
my $localFilePath = '';
while ($i < $numFiles) {
    $localFilePath = $sa->GetString($i);
    print $localFilePath, "\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) {
        print 'Failed to delete: ', $localFilePath, "\n";
    }

    $i = $i + 1;
}

$success = $ftp->Disconnect();