18.6. Программная имитация сеанса telnet 659

Решение

Воспользуйтесь модулем Net::Telnet с CPAN: use Net,Telnet;

$t = Net,,Telnet->new( Timeout => 10,

Prompt => /%/, Host => Shostname ),

$t->login($username, Spassword); @files = $t->cmdCls"), St->print("top");

(undef, $process string) = St->waitfor(7\d+ processes/), St->close,

Комментарий

Модуль Net::Telnet поддерживает объектно-ориентированный интерфейс к протоколу telnet. Сначала вы устанавливаете соединение методом Net: :Telnet->new, а затем взаимодействуете с удаленным компьютером, вызывая методы полученного объекта.

Метод new вызывается с несколькими параметрами, передаваемыми в хэш-подобной записи (параметр => значение). Мы упомянем лишь некоторые из многих допустимых параметров. Самый важный. Host, определяет компьютер, к которому вы подключаетесь. По умолчанию используется значение localhost. Чтобы использовать порт, отличный от стандартного порта telnet, укажите его в параметре Port. Обработка ошибок выполняется функцией, ссылка на которую передается в параметре Errmode.

Еще один важный параметр - Prompt. При регистрации или выполнении команды модуль Net::Telnet по шаблону Prompt определяет, завершилась ли регистрация или выполнение команды. По умолчанию Prompt совпадает со стандартными приглашениями распространенных командных интерпретаторов:

/[\$%((>] S/

Если на удаленном компьютере используется нестандартное приглашение, вам придется определить собственный шаблон. Не забудьте включить в него символы /.

Параметр Timeout определяет продолжительность (в секундах) тайм-аута при сетевых операциях. По умолчанию тайм-аут равен 10 секундам.

Если в модуле Net::Telnet происходит ошибка или тайм-аут, по умолчанию инициируется исключение. Если не перехватить его, исключение выводит сообщение в STDERR и завершает работу программы. Чтобы изменить это поведение, передайте в параметре Errmode ссылку на подпрограмму. Если вместо ссылки Errmode содержит строку "return", то при возникновении ошибок методы возвращают undef (в скалярном контексте) или пустой список (в списковом контексте); при этом сообщение об ошибке можно получить с помощью метода errmsg:

Stelnet = Net Telnet->new( Errmode => sub { main:•log(@ ) }, ., );

Метод login передает имя пользователя и пароль на другой компьютер Успешное завершение регистрации определяется по шаблону Prompt; если хост не выдал приглашения, происходит тайм-аут:

$telnet->login($username, Spassword)

or die Login failed @{[ $telnet->erni)sg() ]}\n ,

Для запуска программы и получения ее вывода применяется метод cmd. Он получает командную строку и возврашает выходные данные программы. В списковом контексте возврашается список, каждый элемент которого соответствует отдельной строке. В скалярном контексте возврашается одна длинная строка. Перед возвратом метод ожидает выдачи приглашения, определяемого по шаблону Prompt.

Пара методов, print и waitfor, позволяет отделить отправку команды от получения ее выходных данных, как это было сделано в решении. Метод waitfor получает либо набор именованных аргументов, либо одну строку с регулярным выражением Perl:

$telnet->waitfor( /--more--/ )

Параметр Timeout определяет новый тайм-аут, отменяя значение по умолчанию. Параметр Match содержит оператор совпадения (см. выше), а String - искомую строковую константу:

$telnet->waitfor(String => greasy smoke , Timeout => 30)

В скалярном контексте waitfor возвращает true, если шаблон или строка были успещно найдены. В противном случае выполняется действие, определяемое параметром Errmode. В списковом контексте метод возвращает две строки: весь текст до совпадения и совпавший текст.

> Смотри также-

Документация по модулю Net:;Telnet с CPAN; RFC 854-856 и дополнения в последующих RFC.

18.7. Проверка удаленного компьютера

Проблема

Требуется проверить доступность сетевого компьютера. Сетевые и системные программы часто используют для этой цели программу ping.

Решение

Воспользуйтесь стандартным модулем Net:;Ping:

use Net Ping,

$p = Net Ping->new()

or die Can t create new ping object S\n

18.7. Проверка удаленного компьютера 661

print Shost is alive if $p->ping(Shost), Sp->close,

Комментарий

Проверить работоспособность компьютера сложнее, чем кажется. Компьютер может реагировать на команду ping даже при отсутствии нормальной фунционально-сти; это не только теоретическая возможность, но, как ни печально, распространенное явление. Лучше рассматривать утилиту ping как средство для проверки доступности компьютера, а не выполнения им своих функций. Чтобы решить последнюю задачу, вы должны попытаться обратиться к его демонам (telnet, FTP, Web, NFS и т. д.).

В форме, показанной в решении, модуль Net::Ping пытается подключиться к эхо-порту UDP (порт 7) на удаленном компьютере, отправить датаграмму и получить эхо-ответ. Компьютер считается недоступным, если не удалось установить соединение, если отправленная датаграмма не была получена или если ответ отличался от исходной датаграммы. Метод ping возвращает true, если компьютер доступен, и false в противном случае.

Чтобы использовать другой протокол, достаточно передать его имя при вызове new Допустимыми являются протоколы tcp, udp и icmp (записываются в нижнем регистре). При выборе протокола TCP программа пробует подключиться к эхо-порту TCP (порт 7) удаленного компьютера и возвращает true при успешной установке соединения и false в противном случае (в отличие от UDP пересылка данных не выполняется). При выборе ICMP будет использован протокол ICMP, как в команде pmg(8). На компьютерах UNIX протокол ICMP может быть выбран только привилегированным пользователем:

# Использовать ICMP при наличии привилегий и TCP в противном случае Spong = Net Ping->new( $> tcp icmp )

(defined Spong)

or die Couldn t create Net Ping object S\n ,

if ($pong->ping( kingkong com )) { print The giant ape lives\n } else {

print All hail mighty Camera, friend of children\n ,

Ни один из этих способов не является абсолютно надежным. Маршрутизаторы некоторых узлов отфильтровывают протокол ICMP, поэтому Net::Ping сочтет такие компьютеры недоступными даже при возможности подключения по другим протоколам. Многие компьютеры запрещают эхо-сервис TCP и UDP, что приводит к неудачам при опросе через TCP и UDP. Запрет службы или фильтрацию протокола невозможно отличить от неработоспособности компьютера.

> Смотри также-

Документация по модулю Net::Ping; страницы руководства pzng(8), tcp(3), udp(4) и tcmp(4) вашей системы (если есть); RFC 792 и 950.