NAME

Net::Telnet::Huawei

SYNOPSIS

use Net::Telnet::Huawei;
my $net_dev=Net::Telnet::Huawei->new;
my ($host, $user, $password, $super_password) = ('192.168.1.1', 'admin', 'password', 'super password');

$net_dev->login($host, $user, $password, $super_password);

# or ssh login
# $net_dev->login($host, $user, $password, $super_password, 1);

my @lines = $net_dev->exec_cmd('display version');
print join("\n", @lines), "\n";

DESCRIPTION

利用TELNET协议访问华为系列网络设备。

Subs

DEBUG

Enable/Disable debug mode if passing an argument. Return debug mode if no argument.

new

Constructor.

wait_prompt

Wait until prompt is found.

can

Check if a device command exists.

enter_super

Enter privilege view.

set_vty_no_pause

Setting no page pause

set_vty_pause

Setting page pause

prompt_str

Return prompt status