06-01-2023, 10:51
Im Zuge der Automatisierung des Zentrums habe ich heute (01.08.2021) herausgefunden, wie ich via Perlscript Dateien auf den FTP-Server hochladen kann. Via PHP-Script kann ich das ja schon, aber mit der Shell hatte ich noch keine Berührungspunkte in dieser Hinsicht.
Mit dem Modul Net::FTP können Dateien hochgeladen werden.
Das nachfolgende Script ist eigentlich alles, was benötigt wird:
Die Grundlage dazu habe ich in diesem Artikel gefunden, da ich mit curl leider keinen Erfolg hatte:
Datei via Konsole auf FTP hochladen
Mit dem Modul Net::FTP können Dateien hochgeladen werden.
Das nachfolgende Script ist eigentlich alles, was benötigt wird:
Code:
#!/usr/bin/perl -w
use Net::FTP;
my ($ftp, $host, $user, $pass, $dir, $fpath);
$host = "FTP-Server";
$user = "FTP-User";
$pass = "FTP-Passwort";
$dir = "/public_html/ordnername/";
$fpath = "/webserver/ordnername/$rssfeed";
$ftp = Net::FTP->new($host, Debug => 0);
$ftp->login($user, $pass) || die $ftp->message;
$ftp->cwd($dir);
$ftp->put($fpath) || die $ftp->message;
$ftp->quit;
print $ftp->message;
Die Grundlage dazu habe ich in diesem Artikel gefunden, da ich mit curl leider keinen Erfolg hatte:
Datei via Konsole auf FTP hochladen