From angelaxyu at hotmail.com  Mon Oct 10 23:39:33 2011
From: angelaxyu at hotmail.com (Yu Gao)
Date: Tue, 11 Oct 2011 14:39:33 +0800
Subject: [PerlChina] =?gb2312?b?YXV0b3NwbGl0Lml4x/PW+g==?=
Message-ID: <SNT112-W3912AED6C127CB9D2B6954BBE20@phx.gbl>


大家好，最近想做一个小工具结果遇到以下几个问题
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>

From lob4tt at gmail.com  Mon Oct 10 23:58:20 2011
From: lob4tt at gmail.com (lobatt li)
Date: Tue, 11 Oct 2011 14:58:20 +0800
Subject: [PerlChina] =?gb2312?b?YXV0b3NwbGl0Lml4x/PW+g==?=
In-Reply-To: <SNT112-W3912AED6C127CB9D2B6954BBE20@phx.gbl>
References: <SNT112-W3912AED6C127CB9D2B6954BBE20@phx.gbl>
Message-ID: <CAEEEWi=i0m2Oa-oSiVHKS3auTuw1hOG3E9i-Fj5mfF-TYhSrSA@mail.gmail.com>

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