(Perl) Download Text File into String Variable

Download a text file directly into a string variable.

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

use chilkat();

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

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

$ftp->put_Hostname("ftp.someFtpServer.com");
$ftp->put_Username("myFtpUserAccount");
$ftp->put_Password("myFtpPassword");

# Set other possible settings...
# See http://www.cknotes.com/determining-ftp2-connection-settings/ 
# for more information about FTP connection settings.
$ftp->put_Passive(1);
$ftp->put_AuthTls(1);

# Connect and login to the FTP server.
$success = $ftp->Connect();
if ($success != 1) {
    print $ftp->lastErrorText() . "\r\n";
    exit;
}

# Change to the remote directory where the existing file is located.
$success = $ftp->ChangeRemoteDir("junk");
if ($success != 1) {
    print $ftp->lastErrorText() . "\r\n";
    exit;
}

# Download the contents of the remote file into a string variable.

# The GetRemoteFileTextData method assumes the remote file contains ANSI chars.
# To download text files containing non-ANSI text, such as utf-8, call GetRemoteFileTextC
# instead. (see below)
$fileContents = $ftp->getRemoteFileTextData("ansiText.txt");
if ($ftp->get_LastMethodSuccess() != 1) {
    print $ftp->lastErrorText() . "\r\n";
    exit;
}
else {
    print $fileContents . "\r\n";
}

# To download a remote text file containing utf-8 chars, 
# call GetRemoteFileTextC and pass "utf-8" for the 2nd arg.  This tells
# Chilkat to interpret the incoming bytes according to the utf-8 character encoding.

$fileContents = $ftp->getRemoteFileTextC("utf8Text.txt","utf-8");
if ($ftp->get_LastMethodSuccess() != 1) {
    print $ftp->lastErrorText() . "\r\n";
    exit;
}
else {
    print $fileContents . "\r\n";
}

$success = $ftp->Disconnect();