Perl

SFTP Get/Set File Permission

See more SFTP Examples

Demonstrates how to set the permissions of a file on the SFTP server. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

my $sftp = Chilkat2::SFtp->new;

# Connect to the SSH/SFTP server.
my $hostname = 'sftp.example.com';
my $port = 22;
my $success = $sftp->Connect($hostname, $port);
if (!$success) {
    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) {
    print $sftp->LastErrorText, "\n";
    exit;
}

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

# Get the file permissions for the "hamlet.xml" file on the server.
# The hamlet.xml file is located in the qa_data directory found under the HOME directory of the SSH user account.
# We are passing the remote file path (we are not passing a file handle returned by a previous call to OpenFile).
my $isHandle = 0;
my $followLinks = 1;
my $permVal = $sftp->GetFilePermissions('qa_data/hamlet.xml', $followLinks, $isHandle);
if ($permVal < 0) {
    print $sftp->LastErrorText, "\n";
    exit;
}

# Note: Filesystem permissions on Linux/Unix/MacOSX are typically written in octal (POSIX file permissions).  For example 0644 is octal.
# To convert to decimal: octal 644 = 6*8^2 + 4*8 + 4 = 420 (decimal)
#
# The server may return a permissions value (in octal) such as 100644.
# The "100" indicates the file type, such as regular file or directory.

# Show the decimal value of the permissions
print 'decimal permissions value: ', $permVal, "\n";

# To set the file permissions, pass the integer value.
# Let's change the permissions to 0664, which is 6*8^2 + 6*8 + 4 = 436 (decimal)
$success = $sftp->SetPermissions('qa_data/hamlet.xml', $isHandle, 436);
if (!$success) {
    print $sftp->LastErrorText, "\n";
    exit;
}

print "Success.\n";