<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Tahoma
}
--></style>
</head>
<body class='hmmessage'><div dir='ltr'>
大家好，最近想做一个小工具结果遇到以下几个问题<BR>
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<BR>
2.如何将返回结果以txt文本模式保存。<BR>
代码如下：<BR>
#!/usr/bin/perl<BR>
use Net::Telnet::Cisco;<BR>
my $session = Net::Telnet::Cisco->new(Host => '192.168.0.101');<BR>$session->login('','loginpassword');<BR>
#Execute a command<BR>my @output = $session->cmd('terminal length 0');<BR>#print @output;<BR>
#Enable mode<BR>if ($session->enable('enpassword'))<BR>{<BR>@output = $session->cmd('show ip int brief');<BR>print "#### Ip int brief: \n @output\n";<BR>@output = $session->cmd('show logging');<BR>print "#### show logging: \n @output\n";<BR>}<BR>else<BR>{<BR>warn "Can't enable: " . $session->errmsg;<BR>}<BR>$session->close;<BR>
现在所有的结果都返回在屏幕上，我想保存出来。<BR>
另外，有多台设备如何循环呀。<BR>
第一次写程序。<BR>
谢谢<BR> </div></body>
</html>