Perl FTP

If you want to Upload files via Perl and FTP. you could use this script:

#!/usr/bin/perl
use File::Basename;
use Net::FTP;
$ordner =time();
my $directory =  "backupordnerpfad";
my @parts = split(/\/, $directory);
my $length = $parts;
my $ordnerDir = $parts[$length-1];
$ftp = Net::FTP->new("www.myftpserver.at", Debug => 1)
    or die "Cannot connect to hostname: $@";
$ftp->login("username", "passwort")
    or die "Cannot login ", $ftp->message;
$ftp->cwd("/www")
    or die "Cannot change working directory ", $ftp->message;
$ftp->mkdir($ordner);
$ftp->cwd($ordner);
# set binary mode which is needed for image upload
$ftp->binary();
opendir(DIR,$directory);
my @files = readdir(DIR);
foreach my $file (@files)
    {
    if (not -d $file)
        {
        $ftp->put("$directory/$file");
        }
    }
$ftp->quit();
sleep(1000);

#!/usr/bin/perl

use File::Basename;

use Net::FTP;

$ordner =time();

my $directory = "backupordnerpfad";

my @parts = split(/\/, $directory);

my $length = $parts;

my $ordnerDir = $parts[$length-1];

$ftp = Net::FTP->new("www.myftpserver.at", Debug => 1)

or die "Cannot connect to hostname: $@";

$ftp->login("username", "passwort")

or die "Cannot login ", $ftp->message;

$ftp->cwd("/www")

or die "Cannot change working directory ", $ftp->message;

$ftp->mkdir($ordner);

$ftp->cwd($ordner);

# set binary mode which is needed for image upload

$ftp->binary();

opendir(DIR,$directory);

my @files = readdir(DIR);

foreach my $file (@files)

{

if (not -d $file)

{

$ftp->put("$directory/$file");

}

$ftp->quit();

sleep(1000);

2 thoughts on “Perl FTP”

You can certainly see your enthusiasm in the work
you write. The sector hopes for even more passionate writers
such as you who aren’t afraid to mention how they believe.
All the time follow your heart.

View Comment