1

我正在使用 WWW::Scripter 来调用 javascript。该网站的链接是这样的。 文档的 html 如下所示。

<form id="whitelistForm" method="get" action="">
<table id="whitelistTable" class="info">
<tbody>
<tr>
<th class="firstCol" width="75%" style=""> E-mail address </th>
<th class="lastCol">Actions</th>
</tr>
<tr class="even">
<td>id@mailhost.com</td>
<td class="button">
<a onclick="deleteWhitelist('id@mailhost.com')" href="javascript:void(0)">Delete</a>
</td>
</tr>
</tbody>
</table>
</form>
<div id="whitelist-du-output" class="actionResult"></div>
<div class="subLink">
<a id="addNewEmailAddress" class="myk-link" href="javascript:void(0)" style="font-weight: normal;"> Add a new approved e-mail address </a>
</div>
</div>

有谁知道如何从 perl 执行 addNewEmailAddress 。（我已经使用 WWW::Mechanize 登录）。

4

1 回答 1

0

如果您想使用 Perl 向这个 Amazon 系统添加/提交（新）电子邮件地址，您必须先登录。

我相信您已经编写了该步骤。然后，您必须保存 cookie以供进一步请求。

要提交电子邮件，您需要调用POST请求到 url：

https://www.amazon.com/gp/digital/fiona/du/add-whitelist.html/ref=kinw_myk_wl_add

并使用此请求提交两个参数：

  • sid （这是您可以在 cookie 中找到的会话 ID；例如：183-9522205-2962863）
  • newEmail （您要提交的电子邮件地址；例如：my@email.address.com）

不要忘记对这些字符串进行编码。

检查响应代码，必须是200。然后读取响应文本以检查成功参数的值。

您可能需要为此请求添加引用者。如果是这样，那么它应该是：

https://www.amazon.com/gp/digital/fiona/manage?ie=UTF8&ref_=gno_yam_myk

于 2012-05-18T13:36:14.910 回答