Perl Telnet 登录 Cisco交换机，并执行命令。

概述#! /usr/bin/perl -w use strict; use 5.010; use Net::Telnet::Cisco;   #需要安装这个module, 需要有internet连接， windows安装命令如下 #c:\> cpan #cpan> install Net::Telnet::Cisco;   # hostip1 数组中可放入多个交换机地址，在循环中执行命令。 my @h #! /usr/bin/perl -w
use strict;
use 5.010;

use Net::Telnet::Cisco;  

#需要安装这个module,需要有internet连接， windows安装命令如下

#c:\> cpan

#cpan> install Net::Telnet::Cisco;  

# hostip1 数组中可放入多个交换机地址，在循环中执行命令。

my @hostip1 = qw(
22.10.100.11
);

foreach my $ip (@hostip1) {
        my $conn = Net::Telnet::Cisco->new(Host => $ip);
        my $vtyPass = 'xxxxxxxx'';
        my $enaPass = 'xxxxxxxx';
        $conn->login(Password => $vtyPass);
       $conn->enable($enaPass);

       my  $cmd = 'show run';
       @output = $conn->cmd($cmd);
       print "Output: @output"; 

       $conn->close;

}

# 参考网址 http://www.litvip.com/2011/08/29/554

总结

以上是内存溢出为你收集整理的Perl Telnet 登录 Cisco交换机，并执行命令。全部内容，希望文章能够帮你解决Perl Telnet 登录 Cisco交换机，并执行命令。所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。