Perl FTP

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

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("", Debug => 1)
    or die "Cannot connect to hostname: $@";
$ftp->login("username", "passwort")
    or die "Cannot login ", $ftp->message;
    or die "Cannot change working directory ", $ftp->message;
# set binary mode which is needed for image upload
my @files = readdir(DIR);
foreach my $file (@files)
    if (not -d $file)

2 thoughts on “Perl FTP”

  1. 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.

  2. Every weekend i used to visit this website, as i want
    enjoyment, as this this web site conations in fact pleasant funny data too.

Leave a Reply

Your email address will not be published.

20 − fourteen =