ＬＷＰのＨＴＭＬ：：Ｆｏｒｍにｉｎｐｕｔを追加してＰＯＳＴする方法

投稿：2015-12-14

背景

サイトに全自動でアクセスするプログラムをＰｅｒｌで書く中で、サイトはＪａｖａＳｃｒｉｐｔを使いフォームにｉｎｐｕｔタグを動的に追加している場所があります。モジュールＨＴＭＬ：：Ｆｏｒｍはサイトのフォーム処理に便利で使っていますがプログラム側からｉｎｐｕｔを追加できないので何とかしたい訳です。

コード

#  uri_escape_utf8を使います
use URI::Escape;

# $formが対象のフォーム
# 送信ボタンをクリック、ただし、そのリクエストは後で
my $req = $form->click();

# フォームにないタグ設定のｉｎｐｕｔをリクエストに追加
my $add_content;
# @append_fieldがフォームにないｉｎｐｕｔ名一覧
# プログラムが設定したいｉｎｐｕｔ／値のセット $spec{ｉｎｐｕｔ名}=値
for (@append_field) {
	my $v = uri_escape_utf8($spec{$_});
	$add_content .= "&$_=$v";
}
$req->add_content($add_content);

# バイト数変更をヘッダに反映
$req->header(Content_Length => length $req->content);

# リクエスト
$res = $self->ua->request($req);

解説

クリックしてリクエストを作成、加工、サイトへリクエストの流れです。この２番目にある加工が今回の肝になります。作成したリクエストはＨＴＭＬ：：Ｍｅｓｓａｇｅを継承しているのでそちらの参照／変更関数を使って操作できるようになっています。ＧＥＴリクエストのＵＲＬでよく見かける「＆ｉｎｐｕｔ名＝値」という形式でＰＯＳＴのデータ（ＵＲＬじゃないよ）に追加できます。ＵＲＬで％を前置するエスケープがあるのでそれをuri_escape_utf8で変換します。Ｐｅｒｌコード、値の両者とも文字コードはＵＴＦ－８です。全部のｉｎｐｕｔを連結してからリクエストに追加します。これでサイトへリクエストすると動作します。ただしヘッダのＣｏｎｔｅｎｔ＿Ｌｅｎｇｔｈが追加前のままですから、送信時に「ヘッダ（Ｃｏｎｔｅｎｔ＿Ｌｅｎｇｔｈ）と送信するデータサイズが違うからヘッダを修正するね（意訳）」と警告がエラー出力されます。そこで送信データのバイト数でヘッダを更新して矛盾を解消します。最後にサイトへリクエストして完了です。

おまけ

このページを書くにあたり改めて関連リンク先を読むと、

$req->header(Content_Length => length $req->content);

は、

$req->content_length(length $req->content);

で良いことに気付いた。もうアフターカーニバル（笑）。