-1

我尝试过的任何方法都无法让我的代码正确提交。其他人可以解决这个问题吗？

#!/usr/bin/perl

use WWW::Mechanize;


my $user = 'cowsaremyfriends@gmail.com';
my $pass  = 'hackswipe';
# Test account; don't worry


my $browser = WWW::Mechanize->new();
$browser->get("https://www.paypal.com/");
$browser->form_with_fields("login_email", "login_password");
$browser->field("login_email", $user);
$browser->field("login_password", $pass);
$browser->submit_form();
$browser->get("https://www.paypal.com/us/cgi-bin/webscr?cmd=_profile-api-add-direct-access");
##### Help here ---> Trying to submit form with default option selected #####
my $html = $browser->content;

print $html;
4

2 回答 2

6

它对我有用，但是当涉及到调试网络爬虫等时，你应该注意 HTTP 事务。这很容易添加，因为WWW::Mechanize是LWP::UserAgent子类：

use WWW::Mechanize;

my $browser = WWW::Mechanize->new();

# See LWP::Debug
$browser->add_handler("request_send",  sub { shift->dump; return });
$browser->add_handler("response_done", sub { shift->dump; return });

现在您可以看到您发送的内容以及 PayPal 发回的内容。

通常，您还可以使用各种 HTTP 嗅探工具，但这些工具仅适用于您以明文形式发送的内容，因此您在这里不走运。

但是，在这种情况下，PayPal 由您负责。他们知道您正在使用脚本。我得到的部分输出是：

<h2>Request API Credentials</h2>
</div>
<div id="messageBox"></div>
<div id="main"><div class="layout1"><form action="https://www.paypal.com/us/cgi-bin/webscr?dispatch=5885d80a13c0db1f8e263663d3faee8dc18bca4c6f47e633b393e284a5f8a8f8" class="">
<input type="hidden" name="cmd" value="_profile-api-add-direct-access"><input type="hidden" name="api_flow_origin" value=""><input type="hidden" name="show_switch" value="1"><input type="hidden" name="auth_type" value="ssl"><input type="hidden" name="api_username" value=""><input type="hidden" name="program_name" value=""><input type="hidden" name="program_id" value=""><input type="hidden" name="partner_name" value=""><input type="hidden" name="partner_id" value=""><input type="hidden" name="partner_code" value=""><p>API credentials consist of three elements:</p>
<ul>
<li>An API username</li>
<li>An API password</li>
<li>Either an API signature or an API SSL client-side certificate</li>
</ul>
<p>If you’re using a shopping cart or solution provider, ask whether you need an API signature or a certificate.</p>

如果您想通过程序与 PayPal 进行交互，您需要注册开发人员访问权限。

于 2010-09-29T17:44:26.697 回答
0

我们不知道问题是什么，确切地说。你读过常见问题解答吗？

perldoc WWW::Mechanize::FAQ

它提供了有关如何调试 Mech 问题的建议。我首先要问的是表单是否使用 JavaScript。我敢打赌，贝宝的页面正在这样做。

于 2010-09-29T17:42:27.900 回答