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 @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


  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值