这学期开始学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