Community  »  Perl: Allgemeines Forum

Auf FTP Dateitest machen	Seitenanfang
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: 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... ...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 Datum: 14.04.2005-17:00
re: Auf FTP Dateitest machen	Seitenanfang
Hallo @dir = $ftp->dir(); liefert eine Ergebnis wie: dr-xr-xr-x 1 ftp ftp 0 Jun 11 2000 cgi-bin -r-xr-xr-x 1 ftp ftp 652 Mar 12 16:52 index.shtml Ein "d" als erstes Zeichen heißt Verzeichnis, ein "-" Datei. Mit einer foreach-Schleife kann man dann alles auswerten. Ciao Ingo Datum: 16.04.2005-11:19
re: Auf FTP Dateitest machen	Seitenanfang
Danke... Werd ich mal probieren! Datum: 16.04.2005-11:28