nicht angemeldet
hallo zusammen,
ich versuche ein ftp-objekt an eine funktion zu übergeben, die die verzeichnisstruktur ausliest.
sieht so aus:
$ftp = Net::FTP->new usw...
54: sub get{
55: my ($ftp,$path) = @_;
56: my @DirList = $ftp->ls or die "Konnte Verzeichnis nicht lesen";
57: print "-----------$path------------------------------------\n";
58: foreach (@DirList){
59: print "$_\n";
60: if ($ftp->cwd($_)){
61: &get($ftp,$_);
62: }
63: }
64: return;
65: }
das erste verzeichnis wird erkannt, die restlichen nicht mehr.
$ftp->cwd($_) liefert keine 1 obwohl $_ ein verzeichnisname ist.
unter linux: Konnte Verzeichnis nicht lesen at xyz.pl line 56.
unter MS: nixx
müsste doch eigentlich gehen - oder?
gibts da vielleicht noch einen anderen weg?
danke schon mal
achim