喬遷啟示:因應實體教室租約到期,富捷培訓於八月起將在長安新址,以線上直播教學為您服務,懇請舊雨新知繼續支持與指教。 地址:台北市長安東路二段201巷19號之1一樓,電話: 02-27116373

11 六月 2013

PERL Cisco Config – 取得Cisco設備 config 組態之PERL程式

PERL Cisco Config

使用 Perl Cisco Config 的程式,取得 Cisco 設備的組態檔

作者:奇科電腦|發布日期:2008/01/08

#!/usr/bin/perl

use Net::Telnet::Cisco;

my $password = $ARGV[ 0 ];
my $enable_password = $ARGV[ 1 ];
my $host = $ARGV[ 2 ];

my $session = Net::Telnet::Cisco->new( Host => "$ARGV[ 2 ]" );
$session->login( Password => "$ARGV[ 0 ]" );
$session->enable( "$enable_password" );
my @cmds = $session->cmd( 'show run' );
print @cmds;
$session->close;