(Perl) SFTP Upload and Download to a BinData Object

See more SFTP Examples

Demonstrates how to SFTP upload from a BinData object, and download into a BinData object.

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.

$sftp = chilkat::CkSFtp->new();

# Set some timeouts, in milliseconds:
$sftp->put_ConnectTimeoutMs(5000);
$sftp->put_IdleTimeoutMs(10000);

# Connect to the SSH server and then authenticate.
$port = 22;
$success = $sftp->Connect("MY-SSH-SERVER-DOMAIN-OR-IP",$port);
if ($success == 1) {
    $success = $sftp->AuthenticatePw("MY-SSH-LOGIN","MY-SSH-PASSWORD");
    if ($success == 1) {
        $success = $sftp->InitializeSftp();
    }

}

if ($success != 1) {
    print $sftp->lastErrorText() . "\r\n";
    exit;
}

$bdA = chilkat::CkBinData->new();
$bdA->LoadFile("qa_data/jpg/penguins.jpg");

# Upload the contents of bdA to the SSH/SFTP server.
$remotePath = "sftpTesting/penguins.jpg";
$success = $sftp->UploadBd($bdA,$remotePath);
if ($success != 1) {
    print $sftp->lastErrorText() . "\r\n";
    exit;
}

# Download the file..
$bdB = chilkat::CkBinData->new();
$success = $sftp->DownloadBd($remotePath,$bdB);
if ($success != 1) {
    print $sftp->lastErrorText() . "\r\n";
    exit;
}

# Verify that bdA and bdB have the exact same contents.
print "size of bdA: " . $bdA->get_NumBytes() . "\r\n";
if ($bdA->ContentsEqual($bdB) == 1) {
    print "Contents are equal. Success." . "\r\n";
}
else {
    print "Contents are NOT equal.  Failed." . "\r\n";
}

$sftp->Disconnect();