On Sun, 21 May 2006, Yutaka Sato wrote:

Hello,

I also tried it with this Perl snippet without luck:
see attached ZIP file for script and log.
the log was tested with:

perl /tmp/ftp-test.pl ftp://localhost:2121/pub/debian-iso/sarge/ 
ftp://cdimage.debian.org/cdimage/weekly-builds/i386/iso-dvd/
Unfortunately, the STDOUT and STDERR are munged together.

use Net::FTP;

my $ftp =  Net::FTP->new($host, Debug => 1)
                 or die "$@" ;

         $ftp->login("anonymous",'\-anonymous@')
                          or die "Cannot login ", $ftp->message;

         $ftp->cwd($path)
                          or die "Cannot change working directory ", 
$ftp->message;

         print join("\n", $ftp->dir())
          , "\n";

Bye,

-- 

Steffen Kaiser