Perl

Append Bytes to a Remote FTP File (BinData)

Demonstrates the Chilkat Ftp2.AppendFileBd method, which appends the bytes in a BinData to a remote file. The first argument is the remote filename and the second is the BinData. No conversion is performed.

Background: The binary append: add in-memory bytes to the end of a remote file without an intermediate local file and without any encoding or line-ending translation. It is the right choice for growing a binary file — concatenating captured data, for instance — where exact bytes matter.

Chilkat Perl Downloads

Download Chilkat for Perl

Perl

use chilkat();

$success = 0;

#  Demonstrates the Ftp2.AppendFileBd method, which appends the bytes in a BinData to a remote
#  file.  The 1st argument is the remote filename and the 2nd is the BinData.

$ftp = chilkat::CkFtp2->new();

$ftp->put_Hostname("ftp.example.com");
$ftp->put_Username("myFtpLogin");

#  Normally you would not hard-code the password in source.  You should instead obtain it
#  from an interactive prompt, environment variable, or a secrets vault.
$ftp->put_Password("myPassword");

$success = $ftp->Connect();
if ($success == 0) {
    print $ftp->lastErrorText() . "\r\n";
    exit;
}

$bd = chilkat::CkBinData->new();
$success = $bd->LoadFile("qa_data/more_data.bin");
if ($success == 0) {
    print $bd->lastErrorText() . "\r\n";
    exit;
}

$success = $ftp->AppendFileBd("data/collected.bin",$bd);
if ($success == 0) {
    print $ftp->lastErrorText() . "\r\n";
    exit;
}

print "Appended " . $bd->get_NumBytes() . " bytes." . "\r\n";

$success = $ftp->Disconnect();
if ($success == 0) {
    print $ftp->lastErrorText() . "\r\n";
    exit;
}