Re: [討論] 一個跟PTT有關的有趣模組
不好意思~
從版主的程式當中擷取出來改寫如下 ，
直接登入都沒有問題，
但是跑到要"進入看板"的部份時就沒辦法繼續下去了，
它會把$board ，put 到輸入帳號的地方..
可以請教一下是為什麼嗎?
我最後是希望能把文章抓回來再做處理..
謝謝~
以下改寫自 "莉洛-空房間的秘密" 部落格:
#!/usr/bin/perl
use Net::Telnet;
use Time::HiRes qw(usleep);
$host = "ptt.cc";
$id = "xxx";
$pass = "xxx";
$board ="Perl";
my %login = (
"請輸入代號" => "$id\n",
"請輸入您的密碼" => "$pass\n",
"您想刪除其他重複的" => "N\n",
"錯誤嘗試" => "\n",
"任意鍵" => "\n",
"酸甜苦辣板" => "q"
);
&build;
while( $buf = &get )
{
foreach (keys %login)
{
&put($login{$_}) if($buf=~/$_/);
}
&put("s$board\n\n"); # 進入看板
print $buf ; #秀出文章標題
}
sub build {
$bot = new Net::Telnet (
Port => 23,
Timeout => 30,
Errmode => \&error
);
$bot->open($host);
}
sub put {
$bot->put($_[0]);
usleep(200000);
}
sub get {
usleep(200000);
return $bot->get( Timeout => 10 );
}
sub error {
print "網路連線逾時或程式發生異常, 程式即將關閉!\n\n";
system("PAUSE");
$bot->close;
exit;
}
sub except {
print "$_[0]\n\n";
system("PAUSE");
exit;
}
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 211.79.38.211
推
01/24 14:18, , 1F
01/24 14:18, 1F
→
01/24 14:18, , 2F
01/24 14:18, 2F
→
01/24 14:19, , 3F
01/24 14:19, 3F
→
01/24 15:43, , 4F
01/24 15:43, 4F
推
01/24 16:54, , 5F
01/24 16:54, 5F
推
01/24 16:56, , 6F
01/24 16:56, 6F
→
01/25 17:36, , 7F
01/25 17:36, 7F
→
01/25 17:38, , 8F
01/25 17:38, 8F
推
01/25 17:46, , 9F
01/25 17:46, 9F
推
01/25 17:47, , 10F
01/25 17:47, 10F
→
01/25 17:47, , 11F
01/25 17:47, 11F
討論串 (同標題文章)
完整討論串 (本文為第 2 之 2 篇)：
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
