Question

我正在尝试使用Mechanize更新facebook上的状态。我能够使用脚本登录但无法更新。我验证状态更新的id表单是"u_0_w"。但是，选择form_id方法会显示“没有带ID的表单”u_0_w “”。我的脚本是这样的：

use WWW::Mechanize;
use strict;
use warnings;
use Data::Dumper;
use HTTP::Cookies::Netscape;

my $cookiesfilename='/home/xxx/xxx/cookies.txt';
my $out;
my $mech = WWW::Mechanize->new( cookie_jar => HTTP::Cookies::Netscape->new( file => $cookiesfilename ) );
$mech->get("https://www.facebook.com/login.php");
my $response=$mech->submit_form(
    fields => {
        email => 'xxxx@xxxx.com',
        pass => 'xxxxx',
    }
);
#my $array=$mech->forms();
#$mech->get('/home.php');
print Dumper($mech->forms());
#$mech->form_id("u_0_w");
$mech->submit_form(
  fields => {
      xhpc_message_text=>'Why so serious'
    }
);
print $response->status_line;
open($out, ">",  "output_page.html") or die "Can't open output_page.html: $!";
print $out $response->decoded_content;

然后我尝试使用Dumper打印页面上的所有表单，输出为：

$VAR1 = bless( {
             'default_charset' => 'UTF-8',
             'enctype' => 'application/x-www-form-urlencoded',
             'accept_charset' => 'UNKNOWN',
             'action' => bless( do{\(my $o = 'https://www.facebook.com/search/web/direct_search.php')}, 'URI::https' ),
             'method' => 'GET',
             'attr' => {
                         'method' => 'get'
                       },
             'inputs' => [
                           bless( {
                                    'tabindex' => '-1',
                                    'value' => '1',
                                    'class' => '_42ft _42fu _4w98',
                                    'type' => 'submit'
                                  }, 'HTML::Form::SubmitInput' ),
                           bless( {
                                    '/' => '/',
                                    'autocomplete' => 'off',
                                    'tabindex' => '1',
                                    'name' => 'q',
                                    'aria-label' => 'Search Facebook',
                                    'value_name' => '',
                                    'class' => 'inputtext _586f',
                                    'type' => 'text',
                                    'id' => 'u_0_b',
                                    'role' => 'combobox',
                                    'placeholder' => 'Search Facebook'
                                  }, 'HTML::Form::TextInput' )
                         ]
           }, 'HTML::Form' );

这意味着它没有检测到只检测Facebook搜索表单的状态更新表单。

机械化没有检测到所有表单元素可能会出现什么问题？
表单包含<button type="submit">。机械化是否支持它？

Answer 1

为什么你必须使用Mechanize？在CPAN上已有一个可用的模块。

看看WWW::Facebook::API。

另请参阅相关问题：How do I use Perl's WWW::Facebook::API to publish to a user's newsfeed?

梗概：

use WWW::Facebook::API;
my $facebook = WWW::Facebook::API->new(
    desktop => 0,
    api_key => $fb_api_key,
    secret => $fb_secret,
    session_key => $query->cookie($fb_api_key.'_session_key'),
    session_expires => $query->cookie($fb_api_key.'_expires'),
    session_uid => $query->cookie($fb_api_key.'_user')
);

my $response = $facebook->stream->publish(
 message => qq|Test status message|,
);

使用WWW :: Mechanize更新Facebook状态

1 个答案: