Perl

Get FTP File Permissions

See more FTP Examples

_LANGUAGE_ example showing how to retrieve file permissions (via FTP) for each file in a remote directory. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

my $ftp = Chilkat2::Ftp2->new;

# Set the various properties to establish the connection.
$ftp->Hostname('ftp.example.com');
$ftp->Username('login');
$ftp->Password('password');

# If SSL/TLS is required..
# See http://www.cknotes.com/determining-ftp2-connection-settings/
# for more information.
$ftp->AuthTls(1);
$ftp->PassiveUseHostAddr(1);

# Connect to the FTP server:
my $success = $ftp->ConnectOnly();
if (!$success) {
    print $ftp->LastErrorText, "\n";
    exit;
}

# Authenticate with the FTP server.
$success = $ftp->LoginAfterConnectOnly();
if (!$success) {
    print $ftp->LastErrorText, "\n";
    exit;
}

# To get file permissions in UNIX format, disallow MSLD:
$ftp->AllowMlsd(0);

# To get file and sub-directory information, simply
# loop from 0 to ftp.GetDirCount() - 1
my $i = 0;
my $n = $ftp->GetDirCount();
if ($n < 0) {
    print $ftp->LastErrorText, "\n";
    exit;
}

# Show the type of permissions information that is available.
# The two most common types are "mlsd" and "unix".  See the
# online reference documentation for more information.
if ($n > 0) {
    print 'The permissions format is: ', $ftp->GetPermType(0), "\n";
}

while ($i < $n) {
    # Display the permissions and filename
    print $ftp->GetPermissions($i), ' ', $ftp->GetFilename($i), "\n";

    $i = $i + 1;
}

# Assuming MLSD was possible, let's see the file permissions in MLSD format:
$ftp->AllowMlsd(1);

# Clear the directory cache so we're forced to re-fetch the directory listing:
$ftp->ClearDirCache();

$n = $ftp->GetDirCount();
if ($n < 0) {
    print $ftp->LastErrorText, "\n";
    exit;
}

# Show the type of permissions information that is available.
# The two most common types are "mlsd" and "unix".  See the
# online reference documentation for more information.
if ($n > 0) {
    print "----\n";
    print 'The permissions format is: ', $ftp->GetPermType(0), "\n";
}

$i = 0;
while ($i < $n) {
    # Display the permissions and filename
    print $ftp->GetPermissions($i), ' ', $ftp->GetFilename($i), "\n";

    $i = $i + 1;
}

$success = $ftp->Disconnect();