#!/usr/bin/perl
use Net::Telnet ();
$t = Net::Telnet->new (Timeout => 10 );
$t->open("node-10");
$t->waitfor('/login:.*$/');
$t->print("$username");
$t->waitfor('/Password:.*$/');
$t->print("$passwd");
$t->waitfor ('/niox#/');
exit;
Запускаем:
niox#./telnet.pl
Результат:
pattern match timed-out at ./telnet.pl line 12
Не подскажите почему ?
P.s. $username,$passwd определены -)
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.