-2

我的旧非智能手机不支持 GROUP facebook 聊天，所以我试图找到一种方法来抓取 facebook GROUP 消息并将它们作为短信发送到手机。我知道一些 Perl 网络抓取（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");
4

1 回答 1

4

请使用facebook 提供的 xmpp API 。不需要刮东西。

于 2012-06-19T13:22:46.967 回答