[問題] BBS_bot

[mcchung (>//<)]

這學期開始學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
推 LiloHuang:去我的blog找 http://blog.roodo.com/kenwu 有相關程式
推 LiloHuang:至少 login 的部分我想應該還可以運作  有source code
→ mcchung:謝謝版大^^