forum.lissyara.su

Код: Выделить всё

#!/usr/bin/perl -w

use Net::Telnet;

$tuser = "admin";
$tpass = "admin";
$thost = "10.90.90.90";

$telnet = new Net::Telnet(Timeout => 5, Prompt => '/#/');
$telnet->open(Host => $thost);
$telnet->login($tuser, $tpass);

@lines = $telnet->cmd("show arp");
print @lines;

$telnet->close();

Код: Выделить всё

Command: show arpentry

ARP Aging Time : 20

Interface      IP Address       MAC Address        Type
-------------  ---------------  -----------------  ---------------
System         10.0.0.0         FF-FF-FF-FF-FF-FF  Local/Broadcast
System         10.90.90.10      00-E0-52-A8-B3-AD  Dynamic
System         10.90.90.90      1C-AF-F7-0E-75-61  Local
System         10.255.255.255   FF-FF-FF-FF-FF-FF  Local/Broadcast

Total Entries  : 4

DES-1228/ME:4

Код: Выделить всё

System         10.0.0.0         FF-FF-FF-FF-FF-FF  Local/Broadcast
System         10.90.90.10      00-40-52-58-23-AD  Dynamic
System         10.90.90.90      0C-3F-F1-01-35-71  Local
System         10.255.255.255   FF-FF-FF-FF-FF-FF  Local/Broadcast

Код: Выделить всё

@lines = $telnet->cmd("show arp");
#print @lines;
print @lines[4.. $#lines-4];