Perl

SCP Download Files Matching a Pattern, such as *.txt

See more SCP Examples

Demonstrates how to SCP download files matching a pattern, such as *.txt. 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 $ssh = Chilkat2::Ssh->new;

# Connect to an SSH server:
my $hostname = 'MY-SSH-SERVER-DOMAIN-OR-IP';
my $port = 22;

my $success = $ssh->Connect($hostname, $port);
if (!$success) {
    print $ssh->LastErrorText, "\n";
    exit;
}

# Wait a max of 5 seconds when reading responses..
$ssh->IdleTimeoutMs(5000);

# Authenticate using login/password:
$success = $ssh->AuthenticatePw('MY-SSH-LOGIN', 'MY-SSH-PASSWORD');
if (!$success) {
    print $ssh->LastErrorText, "\n";
    exit;
}

# Once the SSH object is connected and authenticated, use it
# in the SCP object.
my $scp = Chilkat2::Scp->new;

$success = $scp->UseSsh($ssh);
if (!$success) {
    print $scp->LastErrorText, "\n";
    exit;
}

$scp->HeartbeatMs(200);

# Set the SyncMustMatch property to "*.pem" to download only .pem files
$scp->SyncMustMatch('*.pem');

my $remoteDir = 'qa_syncA';
my $localDir = 'c:/aaworkarea/scp/qa_syncA';

# Download synchronization modes:
# mode=0: Download all files
# mode=1: Download all files that do not exist on the local filesystem.
# mode=2: Download newer or non-existant files.
# mode=3: Download only newer files.
#         If a file does not already exist on the local filesystem, it is not downloaded from the server.
# mode=5: Download only missing files or files with size differences.
# mode=6: Same as mode 5, but also download newer files.
my $mode = 0;

# Do not recurse the remote directory tree.  Only download files matching *.pem
# from the given remote directory.
my $bRecurse = 0;

$success = $scp->SyncTreeDownload($remoteDir, $localDir, $mode, $bRecurse);
if (!$success) {
    print $scp->LastErrorText, "\n";
    exit;
}

print "SCP download matching success.\n";

# Disconnect
$ssh->Disconnect();