VPF::Как осуществить IO::Socket::Socks + Net::Cmd

nIkTo

Дата 22.8.2009, 20:29 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 218
Регистрация: 5.7.2007

Репутация: нет
Всего: нет

Доброго времяни суток.
Подскажите что я неправильно сделал, вот код :

Код


#!/usr/bin/perl -w
use IO::Socket::Socks;
use Net::Cmd;

my ($socks_addr, $socks_port, $ftp_addr, $ftp_port, $user, $pass) = ("ip", "1080", "host", "21", "username", "password");

my $ftp = IO::Socket::Socks->new(ProxyAddr=>$socks_addr, ProxyPort=>$socks_port, ConnectAddr=>$ftp_addr, ConnectPort=>$ftp_port);
$ftp->response();
print $ftp->code()."\n";        # 220
$ftp->command("USER", $user)->response();
print $ftp->code()."\n";        # 331
$ftp->command("PASS", $pass)->response();
print $ftp->code()."\n";        # 230

при запуске пришет :

Код


Can't call method "response" on an undefined value

Pfailed

Дата 22.8.2009, 21:53 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 933
Регистрация: 19.7.2009

Репутация: 22
Всего: 39

С чего вы взяли что метод command() возвращает объект Net::Cmd?

--------------------

I'm on CPAN
I'm on github

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »