Приветствую. Подскажите аким образом возможно послать <ctrl+D> используя Net::Telnet?
$telnet->cmd("\004");
$telnet->print("\004");
непомогает Ж-(

Основная задача получить вывод команды show users с консоли терминала DSLPipe с помощью скрипта.
Руками это реализуется так: необходимо, подкючившись телнетом, послать "ctrl+d", далее "e", после этого проваливаюсь в командную строку терминала. Возможно есть другие решения этой задачи?

• Net::Telnet ctrl+D,gr, 05:08 , 25-Ноя-04
• Net::Telnet ctrl+D,sly, 14:39 , 07-Дек-04

>Приветствую. Подскажите аким образом возможно послать <ctrl+D> используя Net::Telnet?
>$telnet->cmd("\004");
>$telnet->print("\004");
>непомогает Ж-(
>
>Основная задача получить вывод команды show users с консоли терминала DSLPipe с
>помощью скрипта.
>Руками это реализуется так: необходимо, подкючившись телнетом, послать "ctrl+d", далее "e", после
>этого проваливаюсь в командную строку терминала. Возможно есть другие решения этой
>задачи?

Почитай на CPAN про это - для этого дела есть метод у Net::Telnet..close что ли называется

оказалось достаточно тривиально.
По умолчанию телнет возвращает все посылаемые ему символы в режиме echo-ответа, т.о. когда я посылал crtl+d, скрипт возвращал скрипту echo-ответ "ctrl+d", что приводило к завершению работы скрипта  :-)  Выход заключается в посылке комбинации ctrl+e, которая отключает echo-ответ.
....
my $CtrlD = "\004";
my $CtrlE = "\005";
....
sleep(1);
$t->put($CtrlE);
sleep(1);
$t->put($CtrlD);
....

>Приветствую. Подскажите аким образом возможно послать <ctrl+D> используя Net::Telnet?
>$telnet->cmd("\004");
>$telnet->print("\004");
>непомогает Ж-(
>
>Основная задача получить вывод команды show users с консоли терминала DSLPipe с
>помощью скрипта.
>Руками это реализуется так: необходимо, подкючившись телнетом, послать "ctrl+d", далее "e", после
>этого проваливаюсь в командную строку терминала. Возможно есть другие решения этой
>задачи?