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信息就全清楚了:)