我的旧非智能手机不支持GROUP facebook聊天,因此我试图找到一种方法来刮取facebook GROUP消息并将其作为短信发送到手机。我知道一些Perl webscraping(HTML :: TableExtract,WWW :: Mechanize,LWP等),但即使我提供了我的脚本我的用户名和密码,我也无法渗透到facebook。
有没有办法让这样的网络刮刀工作?我应该看看任何API或工具包?我不太确定如何开始这个项目。在最坏的情况下,我可以尝试编写一个从我的浏览器上的某些位置复制文本的宏....
编辑:一个饼干罐听起来是个好主意,我会调查一下。这是一段(坏)代码。
open(PERSONAL, "personal.txt");
my @pers = <PERSONAL>;
$ua -> get($cur_url);
$ua -> form_id("login_form");
chomp($pers[0]);
$ua -> field("email", $pers[0]);
chomp($pers[1]);
$ua -> field("pass", $pers[1]);
$ua -> click_button(value =>"Log In");
$ua -> get("https://m.facebook.com/groups/170930939594231/");
$ua -> save_content($dir."/group.html");