如何用Perl編寫一個腳本，可以備份cisco 2960和cisco 3560上的startup-config?

ramboliu

我想用perl寫個腳本，因為公司里面交換機太多，每個月都要備份一遍配置檔。我在網(wǎng)上找了一些，不過這些交換機在telnet時，不需要輸入username，而是telent password，然后進去后就是enable password；最后先使用copy runn start，在copy start tftp。然后備份到我的電腦上。請高手們幫助啊 先謝謝啦

churchmice

expect

ramboliu

那個模塊好像對能telnet的設(shè)備都可以，并不只針對CSICO的。我想使用Net::Telnet ，Net::Telnet::Cisco 這兩個做保存并備份

q1208c

原帖由 ramboliu 于 2008-8-17 19:40 發(fā)表
那個模塊好像對能telnet的設(shè)備都可以，并不只針對CSICO的。我想使用Net::Telnet ，Net::Telnet::Cisco 這兩個做保存并備份

Net::Telnet::Cisco 這個我用過的. 問題不大.

hwxo

請自便。

ramboliu

又見高手，您有源程序嗎？

l74839

#!/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

原帖由 l74839 于 2008-8-18 17:05 發(fā)表
#!/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 ...

萬分感謝，最近公司的事情太多，明天抽點時間試下