ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Paul A. Puchkov                      2:5020/400     23 Jan 2001  19:56:46
 To : All
 Subject : FTP-доступ
 -------------------------------------------------------------------------------- 
 

 Hi, All!
 Hе поможет ли всезнающий Олл решить такую задачу.
 Я хочу уметь скачивать файлы, лежащие на FTP-сервере (существенно, что
 HTTP-доступа к нему нет, а по HTTP я скачивать умею).
 Как организовать протокол обмена? Я написал так:
 $remote = IO::Socket::INET->new(Proto => "tcp",
     PeerAddr => $url,
     PeerPort => "ftp(21)" );
 $remote->autoflush(1);
 print $remote "USER $user\n";
 <$remote>; print ;
 print $remote "PASS $pass\n";
 <$remote>; print ;
 print $remote "pwd\n";
 <$remote>; print ;
 print $remote "cwd $path\n";
 <$remote>; print ;
 print $remote "pwd\n";
 <$remote>; print ;
 #До этого места все работает - pwd выдает спецификацию нужного каталога
 print $remote "list\n";
 <$remote>; print ;
 # А вот здесь возникает 425 Can't build data connection: Connection refused.
 Где бы посмотреть, как такое делается? В рекомендуемом FAQ'ом LWP нашел только
 likeHТТР-запросы. Может, плохо смотрел?
 
 --
 С уважением, Павел Пучков
 E-Mail: Pavel@Radio-MSU.net
 ICQ: 779269
 --- ifmail v.2.15dev5
  * Origin: Demos online service (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    FTP-доступ   Paul A. Puchkov   23 Jan 2001 19:56:46   Re: FTP-доступ   Konstantin Tokar   23 Jan 2001 20:41:46   Re: FTP-доступ   Vladimir Podgorny   23 Jan 2001 22:11:43   Re: FTP-доступ   Artem Babadzhanyants   25 Jan 2001 01:52:52