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);
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.
Every weekend i used to visit this website, as i want
enjoyment, as this this web site conations in fact pleasant funny data too.