[PerlChina] autosplit.ix求助

[lobatt li]

1.
http://www.unix.com/shell-programming-scripting/150940-perl-variables-inside-net-telnet-cisco-module-doesnt-work.html
http://kobesearch.cpan.org/htdocs/Net-Telnet-Cisco/INSTALL.html

2.
perl your_script.pl > debug.log

?

2011/10/11 Yu Gao <angelaxyu at hotmail.com>:
> 大家好，最近想做一个小工具结果遇到以下几个问题
> 1.Can't locate auto/Net/Telnet/Cisco/autosplit.ix in @INC (@INC contains:
> C:/Perl/site/lib C:/Perl/lib .) at C:/Perl/lib/AutoLoader.pm line 173. at
> C:/Perl/lib/Net/Telnet/Cisco.pm line 18
> 2.如何将返回结果以txt文本模式保存。
> 代码如下：
> #!/usr/bin/perl
> use Net::Telnet::Cisco;
> my $session = Net::Telnet::Cisco->new(Host => '192.168.0.101');
> $session->login('','loginpassword');
> #Execute a command
> my @output = $session->cmd('terminal length 0');
> #print @output;
> #Enable mode
> if ($session->enable('enpassword'))
> {
> @output = $session->cmd('show ip int brief');
> print "#### Ip int brief: \n @output\n";
> @output = $session->cmd('show logging');
> print "#### show logging: \n @output\n";
> }
> else
> {
> warn "Can't enable: " . $session->errmsg;
> }
> $session->close;
> 现在所有的结果都返回在屏幕上，我想保存出来。
> 另外，有多台设备如何循环呀。
> 第一次写程序。
> 谢谢
>
> _______________________________________________
> China-pm mailing list
> China-pm at pm.org
> http://mail.pm.org/mailman/listinfo/china-pm
>



-- 
lobatt