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
- get_sysname
-
Return device host name.
- login
-
$obj->login($host, $username, $password, $ssh )$ssh: 1 using ssh 0 use telnet
Login to device.
- logout
-
$obj->logout
Logout from device.
- get_device_type
-
Get device type
- get_config_filename
-
Get configuration filename.
- backup_config
-
backup config file to a ftp server.
- get_version
-
Get software version string.
- exec_cmd
-
Execute command and get output.
- enter_system
-
Enter system mode.
- quit_system
-
Quit system mode.
- get_arp
-
Get arp list.
- get_maclist
-
Get mac list.
- get_config
-
Get configration file.
- set_sysname
-
Set the name of the device.