(Perl) SFTP Fsync -- Flush an Open File on the Server

Demonstrates how to flush the contents of an open file on the server. This example only works for servers that implement the fsync@openssh.com extension.

Note: This example requires Chilkat v9.5.0.71 or later.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

# This example assumes the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

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

# Pass a domain or IP address..
$success = $sftp->Connect("my-sftp-server.com",22);
if ($success == 1) {
    $success = $sftp->AuthenticatePw("mySFtpLogin","mySFtpPassword");
}

if ($success == 1) {
    $success = $sftp->InitializeSftp();
}

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

# Open a file on the server for writing.
$handle = $sftp->openFile("myTest.txt","writeOnly","createTruncate");
if ($sftp->get_LastMethodSuccess() != 1) {
    print $sftp->lastErrorText() . "\r\n";
    exit;
}

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

# Make sure the server flushes what we wrote to the disk..
# (this is requires a server that implements the fsync@openssh.com SFTP protocol extension)
$success = $sftp->Fsync($handle);
if ($success != 1) {
    print $sftp->lastErrorText() . "\r\n";
    exit;
}

# ....
# ....

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

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

print "Success." . "\r\n";