use Net::FTP

[Stephan]

Hallo,

IIRC gibt es da Net::FTP, mit dem die Aufgabe leicht zu erfüllen sein müßte.

das müßte dann so gehen:

#!/usr/bin/perl

use Net::FTP;

$user = "name";
$login = "passwort";
$dir = "/upload";
$host = "www.ftp.server.com";

$ftp = Net::FTP->new($host);

$ftp->login($name, $login);

$ftp->cwd($dir);

$ftp->binary(); # Binär Modus

$ftp-> ascii();  # Ascii Modus

$ftp->put("c:\data.txt", "data.txt");

$ftp->quit();

Gruß

Stephan