学步园

今天写了一个通过telnet远程控制APC电源远程控制的脚本。调试Net::telnet库费了点时间， 所以打算将其记录下来。

sub operate_apc_server<br /> {<br /> my $param_ref = shift;<br /> my $port = $param_ref->{port};<br /> my $action = $param_ref->{action};<br /> my $list = $param_ref->{list};<br /> my $telnet = new Net::Telnet( Timeout=>10,<br /> Errmode=>'die',<br /> # for debug Dump_Log => 'dump.log',<br /> # for debug Input_log => 'input.log',<br /> # for debug Output_log => 'output.log'<br /> );<br /> $telnet->open( $APC_Server_IP ) or die "cannot connect to $APC_Server_IP/n";<br /> $telnet->waitfor('/User Name :/i');<br /> $telnet->print( $APC_Server_Login );<br /> $telnet->waitfor('/Password :/i');<br /> $telnet->print( $APC_Server_PWD );<br /> if ( $list == 1 )<br /> {<br /> my @lines = $telnet->cmd( "list" );<br /> print @lines , "/n";<br /> }<br /> else<br /> {<br /> #print "$action $port/n";<br /> $telnet->cmd( "$action $port" );<br /> }<br /> }<br />

这个函数是脚本的最主要功能实现函数。 dump_log, input_log 还有output_log 这三个参数对调试非常有用。 之前一直遇到超时退出，不知道原因。 检查一下这些log信息就全清楚了:)