Opened by Gast at 2005-04-14 19:44
Hallo,
ich fange grade an mit Perl zu programmieren und möchte nun ein Backupscript erstellen, welches eine FTP-Verbindung öffnet und dort dann alle Dateien herunterläd.
Allerdings habe ich ein Problem mit dem Dateitest auf dem FTP.
Wie kann ich herausfinden ob Ordner oder Datei?
Habe bisher folgenden Code:
Ich dachte an einen Dateitest, wie er lokal auch funktioniert, aber das macht er nicht...
Danke für Hilfe!
Philipp
ich fange grade an mit Perl zu programmieren und möchte nun ein Backupscript erstellen, welches eine FTP-Verbindung öffnet und dort dann alle Dateien herunterläd.
Allerdings habe ich ein Problem mit dem Dateitest auf dem FTP.
Wie kann ich herausfinden ob Ordner oder Datei?
Habe bisher folgenden Code:
Code: (dl
)
1
2
3
4
5
6
7
8
9
my $ftp = Net::FTP->new($s_host, Timeout => 30, Port => 21, Passive => 0);
if($ftp->login($s_user, $s_pass)==0) {
print "Username und/oder Passwort falsch! Bitte Eingaben ueberpruefen!\n";
} else {
foreach($ftp->ls()) {
...Hier fehlt dann der Test...
}
}
$ftp->quit();
Ich dachte an einen Dateitest, wie er lokal auch funktioniert, aber das macht er nicht...
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
...FTP-Verbindung...
foreach($ftp->ls()) {
open(S_DATEI, "< $_");
@auslesen = <S_DATEI>;
close S_DATEI;
foreach(@auslesen) {
if(-f $_) {
&normale_datei();
} else {
&ordner();
}
}
}
...FTP-Verbindung schließen...
Danke für Hilfe!
Philipp