[perl] ftp->LS vraagje.

[digit7722]

Hoi perl vriendjes.

ik heb een vraagje over het ls command onder use net::ftp.
ik kon nergens een antwoord vinden.

ik heb de search doorgrondig doorzocht net als een hele berg sites en boeken (perlgurus.com o'reilly learning perl enz enz).

hier is mijn scriptje een simpele ftp client:

code:

#!/usr/bin/perl -w

use Net::FTP;

$username = "XXXXX";
$password = "XXXXX";
$address  = "ftp.efteepeesite.com";

$ftp = Net::FTP->new($address) or die "Can't connect: $@\n";

$ftp->login($username, $password) or die "Couldn't login\n";

$pwd = ($ftp->pwd or die "Couldnt get Full path\n");

$ls = ($ftp->ls or die "Couldnt get directory listing\n");

print $pwd;

print $ls;

het probleem is dat $ls alleen maar een zooi garble geeft en niet een mooie directory listing zoals ik hoopte.

[tomato]

Lijkt het nog steeds nergens op als je hebt gelezen wat ls hoort terug te geven?

[digit7722]

hmmm nee als ik er een array van maak blijft het diezelfde onzin.
dat van die array had ik trouwens wel zelf kunnen ontdekken mijn excuses daarvoor ik heb erover heen gelezen denk ik.
maar helaas nog steeds geen succes.

[tomato]

Je krijgt een reference naar de array in $ls. Probeer het eens met

code:

print @$ls;

Lees even het een en ander over scalar en list references in Perl, dan wordt het je wel duidelijk.

[digit7722]

hmmm das vreemd als ik @$ls doe krijg ik noppes.
nou ja ik zal eerst even scalar en list references gaan nalezen.

[Verwijderd]

zo ongeveer moet je dat dus doen:

code:

%dirlist = $ftp->ls();
foreach $item (%dirlist) {
       print "$item\n";
}

[ Voor 17% gewijzigd door Verwijderd op 28-01-2003 19:00 ]

[digit7722]

hmmm nope die %dirlist werkt ook niet.
man ik zie iets vreselijk over het hoofd denk ik.
ik heb mijn o'reilly boek helemaal doorgelezen en toch niks kunnen vinden.

[tomato]

Hoort de dirlisting wel iets te geven? Maw, zijn er wel directories en heeft de gebruiker wel de juiste leesrechten?

[digit7722]

ja dat heb ik even van te voren gecontroleerd en ik kan met de zelfde credentials onder iexplore wel gewoon de dir list zien.

STOP de persen.
hij werk wel

ik heb even een andere ftp server geprobeerd (quicknet) en daat deed hij het geweldig.

mijn uiteindelijke code is dus:

code:

#!/usr/bin/perl -w

use Net::FTP;

$username = "XXXXX";
$password = "XXXXX";
$address  = "home.quicknet.nl";
#$directory = "/";

$ftp = Net::FTP->new($address) or die "Can't connect: $@\n";

$ftp->login($username, $password) or die "Couldn't login\n";

#$ftp->cwd($directory) or die "Couldn't change directory\n";


$pwd = ($ftp->pwd or die "Couldnt get Full path\n");

$ls = ($ftp->ls or die "Couldnt get directory listing\n");
print "Current dir is $pwd";
foreach $item (@$ls) {
    print "$item\n"
};

j00 guys rock

[ Voor 75% gewijzigd door digit7722 op 28-01-2003 20:41 ]

[Verwijderd]

code:

@filelist = $ftp->ls();

  foreach (@filelist) {
    print "$_\n";
  }

probeer dat eens