作者xatier (新生)
看板Perl
标题[请益] Net::Telnet
时间Mon Oct 24 04:37:47 2011
最近在研究 Net::Telnet 这个模组
想写一个能判断 BBS 画面的程式
目前大概弄像这样的东西
#!/usr/bin/perl
use warnings;
use Net::Telnet;
use Encode;
$|++;
system("clear");
my $t = new Net::Telnet(Timeout => 100);
$t->open("hostname");
$t->waitfor(encode("Big5", decode("utf8", '/您的帐号/')));
$t->print("myuserid");
$t->print("password");
到这边为止，我能成功登入 BBS 站台
但是我不知道要如何处理 BBS 传回来的画面
根据 CPAN 库的说明
http://search.cpan.org/~jrogers/Net-Telnet-3.03/lib/Net/Telnet.pm
我有 getline 和 getlines 这两种方法可以用
可是我用 getline 後我就没有办法看到我之前已经 getline 过的行
这样一来，我无法做出判断萤幕内容而和 BBS 伺服器端互动的功能
有方法可以取得整个萤幕画面吗?
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.113.24.32
1F：推 dm4:BBS 的萤幕画面不是一行一行传回来的，如果要取得整个萤幕画面 10/26 11:42
2F：→ dm4:的话，要把收到的资料照着 *[K *[H *[x;yH 排好 10/26 11:43
3F：→ xatier:什麽意思，可否再说清楚一点@@? 10/26 12:15