Net::Telnet库使用

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

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

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