這學期開始學perl　第一個作業要寫一個ＢＢＳ機械人 但是現在在連線跟login就卡住了　　不知道版上有沒有高手可以替我解答我寫錯哪 code: use Net::Telnet; $telnet_hd = new Net::Telnet( Timeout => 3, Output_log => $save_file, Prompt =>'/[\$%#>] $|[\$%#>]\s*/'); $telnet_hd->open("bbs.wretch.cc"); $telnet_hd->login("xxxxx","xxxxx"); if(!$telnet_hd){ print "Login Failed\n"; $telnet_hd->close; exit 0; exit 0; } my $save_file = "log/$save_file"; my $fh = $telnet_hd->input_log($save_file); my $retu = $telnet_hd->cmd (Timeout => 30,String=>$telnet_cmd); $telnet_hd->close; error messenge: timed-out waiting for login prompt at test1.pl line 8 我覺得錯誤可能出在prompt　所以一直卡著等到timeout就結束了程式 但是摸了很久　還是不知道要怎麼改才會是正確的prompt.... 另外有試過可以用socket連過去　但是還是要手動登入(剛接觸perl 實在不太會變化..) 希望版上一些高手替我解惑　　謝謝了<(_ _)>　 --

※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 140.113.94.45