Opened by duerov at 2005-11-22 14:33
User since
2005-10-26
27 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2005-10-26
27 Artikel
BenutzerIn
Hallo zusammen,
wollte mir ein kleines ftp-Programm schreiben, das alle Dateien eines Verzeichnisses auf einen FTP-Server hochlädt. Hab das mal versucht so zu realisieren:
Ich seh irgendwie nicht was daran falsch ist, bekomm aber immer Folgende Meldung:
Der Pfad dürft doch richtig angegeben sein, und warum der Zugriff verweigert wird ist mir auch unklar.
Gruß und Dank im Voraus
duerov
wollte mir ein kleines ftp-Programm schreiben, das alle Dateien eines Verzeichnisses auf einen FTP-Server hochlädt. Hab das mal versucht so zu realisieren:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#!D:/Programme/Perl
use strict;
use warnings;
use Net::FTP;
my $ftp = Net::FTP->new("host.de");
die "Konnte keine Verbindung aufbauen $!" unless $ftp;
$ftp->login("name", "passwort");
opendir(DIR, "C:/temp");
my @inhalt = readdir(DIR);
foreach(@inhalt)
{
$ftp->put("$_"); #Zeile 17
}
$ftp->quit;
Ich seh irgendwie nicht was daran falsch ist, bekomm aber immer Folgende Meldung:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
D:\Programme\Perl\eg>ftp.pl
Cannot open Local file .: Permission denied
at D:\Programme\Perl\eg\ftp.pl line 17
Cannot open Local file ..: Permission denied
at D:\Programme\Perl\eg\ftp.pl line 17
Cannot open Local file berichte.txt: No such file or directory
at D:\Programme\Perl\eg\ftp.pl line 17
Cannot open Local file formate.txt: No such file or directory
at D:\Programme\Perl\eg\ftp.pl line 17
Cannot open Local file text1.txt: No such file or directory
at D:\Programme\Perl\eg\ftp.pl line 17
Der Pfad dürft doch richtig angegeben sein, und warum der Zugriff verweigert wird ist mir auch unklar.
Gruß und Dank im Voraus
duerov