[問題] BBS_bot
這學期開始學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
推
03/16 12:21, , 1F
03/16 12:21, 1F
推
03/16 12:21, , 2F
03/16 12:21, 2F
→
03/16 12:24, , 3F
03/16 12:24, 3F
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
