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システムに（新しい）Eメールアドレスを追加/送信する場合は、最初にログインする必要があります。

あなたがすでにコーディングしたステップだと思います。次に、さらにリクエストするためにCookieを保存する必要があります。

電子メールを送信するには、次のURLにPOSTリクエストを呼び出す必要があります。

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

このリクエストで2つのパラメータを送信します。

  • 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 に答える