Архив форумов ЦИТФорума

[victorb]

Текст кода
может кто помочь?
#!/usr/bin/perl
use Net::FTP;

$name="anonymous";
$pass="victorb\@mail.rin.ru "; $ftp = Net::FTP->new("ripe.net",'Debug');
$ftp->login($name,$pass);
$pwd=$ftp->-pwd();
@entries =$ftp->dir("$pwd") or print "no dir $!\n";
foreach (@entries) {
$type=$_;
print "$type\n";
}


$ftp->quit() or die "No";
Говорит что не правильный десриптор файла.

[DmitriyS]

$ftp = Net::FTP->new("some.host.name", Debug => 0);
$ftp->login("anonymous",'me@here.there');

$ftp->dir();
$ftp->quit;
попробуй так, тебе же текущий каталог надо...
т.е. попробуй dir без параметров

[victorb]

Пробовал не помогает