Вход на сайт
HP ProCurve 2626 - telnet - blöde Sau
168 просмотров
Перейти к просмотру всей ветки
в ответ anatoli888 13.11.09 11:43
В ответ на:
#!/usr/bin/perl
use Net::Telnet ();
my $session = new Net::Telnet(
Telnetmode => 0,
Errmode => 'return',
Timeout => 20,
Dump_log => '/tmp/telnet-dump.log',
Input_log => '/tmp/telnet-input.log'
);
$session->open("10.0.47.43");
$session->put('\n') or die $session->errmsg;
$session->waitfor(Match=>'/Password: .*$/i',Timeout=>10) or die $session->errmsg;
$session->print('\n');
$session->print('mysecurepasswd');
$session->waitfor(Match=>'/24G# /i') or die $session->errmsg;
$session->print('show version') or die $session->errmsg;
$output=$session->waitfor('/\$ $/i');
print $output;
#!/usr/bin/perl
use Net::Telnet ();
my $session = new Net::Telnet(
Telnetmode => 0,
Errmode => 'return',
Timeout => 20,
Dump_log => '/tmp/telnet-dump.log',
Input_log => '/tmp/telnet-input.log'
);
$session->open("10.0.47.43");
$session->put('\n') or die $session->errmsg;
$session->waitfor(Match=>'/Password: .*$/i',Timeout=>10) or die $session->errmsg;
$session->print('\n');
$session->print('mysecurepasswd');
$session->waitfor(Match=>'/24G# /i') or die $session->errmsg;
$session->print('show version') or die $session->errmsg;
$output=$session->waitfor('/\$ $/i');
print $output;
вот это логинится по телнету на мой ProCurve, выполняет "show version" и аутпут кладет в /tmp/telnet-input.log
ps. Строго не судите, в перле я не силен
0001, 0010, 0011, 0100, 0101, вышел зайчег погулядь