[PerlChina] autosplit.ix求助

[Yu Gao]

大家好，最近想做一个小工具结果遇到以下几个问题
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;
现在所有的结果都返回在屏幕上，我想保存出来。
另外，有多台设备如何循环呀。
第一次写程序。
谢谢 		 	   		  
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/china-pm/attachments/20111011/5d04f848/attachment.html>