如何用Perl编写一个脚本，可以备份cisco 2960和cisco 3560上的startup-config?

ramboliu

UID: 22192
帖子: 1
积分: 2
在线时间: 10 分钟

1^# ramboliu 发表于 2008-08-17 16:16

如何用Perl编写一个脚本，可以备份cisco 2960和cisco 3560上的startup-config?

我想用perl写个脚本，因为公司里面交换机太多，每个月都要备份一遍配置档。我在网上找了一些，不过这些交换机在telnet时，不需要输入username，而是telent password，然后进去后就是enable password；最后先使用copy runn start，在copy start tftp。然后备份到我的电脑上。请高手们帮助啊先谢谢啦

churchmice

UID: 31829
帖子: 2
积分: 4
在线时间: 10 分钟

2^# churchmice 发表于 2008-08-17 16:36

expect

ramboliu

UID: 22192
帖子: 1
积分: 2
在线时间: 10 分钟

3^# ramboliu 发表于 2008-08-17 19:40

那个模块好像对能telnet的设备都可以，并不只针对CSICO的。我想使用Net::Telnet ，Net::Telnet::Cisco 这两个做保存并备份

q1208c

UID: 35986
帖子: 6
积分: 13
在线时间: 10 分钟

4^# q1208c 发表于 2008-08-17 21:57

QUOTE:

原帖由 ramboliu 于 2008-8-17 19:40 发表
那个模块好像对能telnet的设备都可以，并不只针对CSICO的。我想使用Net::Telnet ，Net::Telnet::Cisco 这两个做保存并备份

Net::Telnet::Cisco 这个我用过的. 问题不大.

hwxo

UID: 27474
帖子: 193
积分: 443
在线时间: 2 天 2 小时

5^# hwxo 发表于 2008-08-18 08:53

请自便。

ramboliu

UID: 22192
帖子: 1
积分: 2
在线时间: 10 分钟

6^# ramboliu 发表于 2008-08-18 11:41

又见高手，您有源程序吗？

l74839

UID: 27090
帖子: 1
积分: 2
在线时间: 10 分钟

7^# l74839 发表于 2008-08-18 17:05

#!/usr/bin/perl

use Net::Telnet::Cisco;

my @ip=qw/1.1.1.1
1.1.1.2
1.1.1.3/;

foreach my $host ( @ip ) {
my $session = Net::Telnet::Cisco->new(Host => "$host");
$session->login('', 'pass');
$session->enable('enpass');
my @output = $session->cmd("copy running-config "."tftp://1.1.1.5/$host\n\n\n");
$session->close;
}

ramboliu

UID: 22192
帖子: 1
积分: 2
在线时间: 10 分钟

8^# ramboliu 发表于 2008-08-19 21:40

QUOTE:

原帖由 l74839 于 2008-8-18 17:05 发表
#!/usr/bin/perl

use Net::Telnet::Cisco;

my @ip=qw/1.1.1.1
1.1.1.2
1.1.1.3/;

foreach my $host ( @ip ) {
my $session = Net::Telnet::Cisco->new(Host => "$host");
$se ...

万分感谢，最近公司的事情太多，明天抽点时间试下