Продолжим рассмотрение методов модуля Net::Telnet.

$value = $telnet->input_record_separator ([$newvalue])

$value = $telnet->output_record_separator ([$newvalue])

Эти два метода позволяют получить и/или установить разделители входных и выходных записей. Разделитель входных записей позволяет разбить введенные данные на строки и применяется в методах getline(), getlines() и cmd(). Разделитель выходных записей выводится в конце каждой строки выводимой с помощью метода print(). Оба разделителя по умолчанию имеют значение n.

$value = $telnet->prompt([$newvalue])

$value = $telnet->timeout([$newvalue])

$value = $telnet->binmode([$newvalue])

$value = $telnet->errmode([$newvalue])

Эти методы позволяют получить и/или установить соответствующие значения параметров и могут использоваться для определения или изменения значений этих параметров применяемых по умолчанию, после создания объекта Telnet.

$telnet->close

Метод close() разрывает соединение с удаленным хостом.

Программа дистанционной смены пароля.

Для иллюстрации практического применения модуля Net::Telnet рассмотрим сценарий дистанционной смены пароля change_passwd.pl. Этот сценарий поочередно обращается на каждый хост, указанный в командной строке, и меняет пароль регистрации пользователя. Такой сценарий может использоваться пользователем, зарегистрированным на нескольких компьютерах, на которых не обеспечен доступ к базе данных с информацией аутентификации. Ниже приведен пример применения этого сценария.

change_passwd.pl --old=mothergOOse --new=bopEEp

chiron masdorf sceptre

В этой командной строке показан запрос к сценарию для смены текущего пароля пользователя на трех компьютерах: chiron, masdorf и sceptre. Сценарий сообщает об удачной или неудачной попытке смены пароля на каждом из указанных компьютеров.