0 Пользователей и 1 Гость просматривают эту тему.
# Начало кодаuse Net::FTP; $retry_call=1; $attempts=2; $ftp_port=21; $site="host"; $user="vova"; $pass="kyky"; $user_dir="/";if(ftp::open($site,$ftp_port,$retry_call,$attempts )!=1){ return print qq~Невозможно соединиться с сервером ! Проверте параметры соединения. \\n~;} if(!ftp::login($user,$pass)){ return print qq~Не могу войти в каталог ! Проверте правильность логина и пароля. \\n~; } else { print "Соединение с FTP-сервером $site установлено. \\n";}ftp::cwd($user_dir); my @files=ftp\'ls($user_dir);foreach(@files) { print "$_\\n"; }# конец