Delete Files Matching Pattern

The DeleteMatching method deletes all files in the current remote directory matching a wildcarded filename.

 Chilkat Perl Module Downloads for Windows, Linux, and MAC OS X

use chilkat();

$ftp = new chilkat::CkFtp2();

#  Any string unlocks the component for the 1st 30-days.
$success = $ftp->UnlockComponent("Anything for 30-day trial");
if ($success != 1) {
    print $ftp->lastErrorText() . "\n";
    exit;
}

$ftp->put_Hostname("www.chilkatsoft.com");
$ftp->put_Username("MyLogin");
$ftp->put_Password("MyPassword");

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

#  Change to the remote directory where the files to be deleted are located.
#  for the FTP account.
$success = $ftp->ChangeRemoteDir("junk");
if ($success != 1) {
    print $ftp->lastErrorText() . "\n";
    exit;
}

#  Delete all files with filenames matching "ftp_*.asp"
$numDeleted = $ftp->DeleteMatching("ftp_*.asp");
if ($numDeleted < 0) {
    print $ftp->lastErrorText() . "\n";
    exit;
}

$ftp->Disconnect();

print $numDeleted . " Files Deleted!" . "\r\n";