SFTP Write Text File

Demonstrates how to create a new text file on the remote SSH server, append text by calling WriteFileText one or more times, and then close the file.

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

use chilkat();

#  Important: It is helpful to send the contents of the
#  sftp.LastErrorText property when requesting support.

$sftp = new chilkat::CkSFtp();

#  Any string automatically begins a fully-functional 30-day trial.
$success = $sftp->UnlockComponent("Anything for 30-day trial");
if ($success != 1) {
    print $sftp->lastErrorText() . "\n";
    exit;
}

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

#  Connect to the SSH server.
#  The standard SSH port = 22
#  The hostname may be a hostname or IP address.

$hostname = "www.my-ssh-server.com";
$port = 22;
$success = $sftp->Connect($hostname,$port);
if ($success != 1) {
    print $sftp->lastErrorText() . "\n";
    exit;
}

#  Authenticate with the SSH server.  Chilkat SFTP supports
#  both password-based authenication as well as public-key
#  authentication.  This example uses password authenication.
$success = $sftp->AuthenticatePw("myLogin","myPassword");
if ($success != 1) {
    print $sftp->lastErrorText() . "\n";
    exit;
}

#  After authenticating, the SFTP subsystem must be initialized:
$success = $sftp->InitializeSftp();
if ($success != 1) {
    print $sftp->lastErrorText() . "\n";
    exit;
}

#  Open a file on the server for writing.
#  "createTruncate" means that a new file is created; if the file already exists, it is opened and truncated.

$handle = $sftp->openFile("myTest.txt","writeOnly","createTruncate");
if ($handle eq null ) {
    print $sftp->lastErrorText() . "\n";
    exit;
}

#  Write some text to the file:
$success = $sftp->WriteFileText($handle,"ansi","abcdefghijklmnopqrstuvwxyz");
if ($success != 1) {
    print $sftp->lastErrorText() . "\n";
    exit;
}

$success = $sftp->WriteFileText($handle,"ansi","1234567890");
if ($success != 1) {
    print $sftp->lastErrorText() . "\n";
    exit;
}

$success = $sftp->WriteFileText($handle,"ansi","ABCDEFGHIJKLMNOPQRSTUVWXYZ");
if ($success != 1) {
    print $sftp->lastErrorText() . "\n";
    exit;
}

#  Close the file.
$success = $sftp->CloseHandle($handle);
if ($success != 1) {
    print $sftp->lastErrorText() . "\n";
    exit;
}

print "Success." . "\n";