Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: разработка для Web > перейти в пассивный режим FTP

Автор: programperl 2.5.2013, 06:26

Доброе утро) не получается перейти в пассивный режим FTP :
#!/usr/bin/perl -wl
use IO::Socket;
$sock = new IO::Socket::INET->new(
                        PeerAddr =>'shannon.usu.edu.ru',
                                PeerPort =>'21',
                Proto =>'tcp',
                );

$data = <$sock>;
print $data;

print $sock 'USER ftp';

print $sock 'PASS [email protected]';
while(<$sock>){
    print ;
    }
print $sock 'PASV'
while(<$sock>){
    print ;
    }