VPF::Telnet - Форум программистов

Rustty

Дата 20.6.2005, 19:34 (ссылка)

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

Загрузка ...

Новичок

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

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

Вот пытаюсь работать с модулем Telnet , вроде лёгенький код но почему то не работает, есть идеи? ОС-XP

Код


#!usr/bin/perl -w
use Net::Telnet ();
               $t = new Net::Telnet (Timeout => 100,
                                     Prompt => '/bash\$ $/');
               $t->open("bowl03");
               $t->login($Guest, $_);
               @lines = $t->cmd("/usr/bin/who");
               print @lines;

вот это значит , что account guest , а пароль пустой.

Код


$t->login($Guest, $_);

Это правельно?

А ошибку выдаёт такую:

Name "main::Guest" used only once: possible typo at C:\1.pl line 6.
eof read waiting for login prompt: Server has closed connection at C:\1.pl line

Ivan Kolesnikov

Дата 21.6.2005, 03:22 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 113
Регистрация: 9.3.2005
Где: г. Новокузнецк

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

Цитата

Name "main::Guest" used only once: possible typo at C:\1.pl line 6.

Ошибка ведь тебе была выведена, ты использовал переменную $Guest и возможно забыл присвоить ей значение

Цитата

Код


$t->login($Guest, $_);

В твоем случае можно просто обойтись константой:

Код


$t->login('Guest','');

Или можно даже

Код


$t->login('Guest');

А вообще привыкай в начале программы писать

Код


use strict;
use warnings;

Про то что эти прагмы значат уже не раз наверное писалось на этом форуме

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

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