Schrift
Start · Board · Webprogrammierung mit Perl · Perl/CGI
[thread]478[/thread]

Dateitest auf FTP-Serv



<< >> 4 Einträge, 1 Seite
Gast Gast
 2005-04-14 19:44
#4772 #4772
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:

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
ptk
 2005-04-14 21:45
#4773 #4773
User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]
-f funktioniert auf lokalen Dateien. In Net::FTP scheint kein echter Test fuer den Filetyp zu existieren. Was du aber machen koenntest, ist ein get bzw. ein cwd zu versuchen --- je nachdem, was klappt, ist es eine Datei oder ein Verzeichnis.

Oder du versuchst "dir" statt "ls" und machst das Parsen selber (Achtung: das Format ist wahrscheinlich FTP-Serverabhaenig!)\n\n

<!--EDIT|ptk|1113928958-->
Crian
 2005-04-19 18:50
#4774 #4774
User since
2003-08-04
5872 Artikel
ModeratorIn
[Homepage]
user image
Kennst Du LWP.pm?
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite
GwenDragon
 2005-04-19 19:36
#4775 #4775
User since
2005-01-17
14757 Artikel
Admin1
[Homepage]
user image
[quote=ptk,14.04.2005, 19:45]Oder du versucht dir statt ls und machst das Parsen selber (Achtung: das Format ist wahrscheinlich FTP-Serverabhaenig!)[/quote]
So machen es fast alle Clients.
die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
<< >> 4 Einträge, 1 Seite



View all threads created 2005-04-14 19:44.