7 Einträge, 1 Seite |
1
2
3
4
5
6
7
8
9
10
-------------------------------------------------------------------
my $ftp = Net::FTP->new ($server, Timeout => 9000, Debug => 3);
$ftp or die "$server: cannot connect: $@";
$ftp->login ($user,$passwd) or
die "$_: Could not login: " . $ftp->message;
# Put file
$ftp->put ($file) or
die "$server: cannot put $file: " . $ftp->message;
$ftp->quit;
-------------------------------------------------------------------
1
2
3
4
5
6
7
8
9
my $ftp = Net::FTP->new ($server, Timeout => 9000, Debug => 3);
$ftp or die "$server: cannot connect: $@";
$ftp->login ($user,$passwd) or
die "$_: Could not login: " . $ftp->message;
# Put file
$ftp->ascii;
$ftp->put ($file) or
die "$server: cannot put $file: " . $ftp->message;
$ftp->quit;
7 Einträge, 1 Seite |