Программирование > Perl

ftp ошибка

(1/1)

Satell:
Есть программка на моём хостинге выдаёт ошибку
can\'t call methd "login" on an undefined value в этой строчке
$ftp->login($username, $password);
на другом хостинге работает нормально

там где работает нормально стоят такие модули
Net::FTP          Net::FTP::A       Net::FTP::dataconn
Net::FTP::E      Net::FTP::I         Net::FTP::L

там где не работает
5.8.8::Net::FTP::E
5.8.8::Net::FTP::L
5.8.8::Net::FTPSSL

Net::FTP
Net::FTP::A       Net::FTP::dataconn       Net::FTP::E
Net::FTP::E       Net::FTP::I                   Net::FTP::L
Net::FTP::L       Net::FTPSSL
некоторые почему-то по два-три раза, можно ли как-нибудь без админа что-нибудь сделать?


--- Код: ---
use Net::FTP;

$hostname = \'login\';
$username = \'user\';
$password = \'pass\';

# Hardcode the directory and filename to get
$home = \'public_html\';
$filename = \'text.txt\';

# Open the connection to the host
$ftp = Net::FTP->new($hostname);         # construct object
$ftp->login($username, $password);       # log in

$ftp->cwd($home),"\\n";                   # change directory
print $ftp->ls($home),"\\n";        

$ftp->put(\'/home/public_html/xxx.org/cgi-bin/file.txt\');

$ftp->quit;

--- Конец кода ---

ondr:
1. включи вывод ошибок

2. замени соответствующие строчки на:

$ftp = Net::FTP->new($hostname)
      or die "Cannot connect to $hostname: $@";

$ftp->login($username, $password)
      or die "Cannot login ", $ftp->message;

и так далее..

Навигация

[0] Главная страница сообщений