perlでresponseの結果を取得する方法

Question

perlでresponseのPOSTの結果を取得するコードを教えて頂きたく。
レスポスンスはpostで任意のパラメータがくる想定です。

リクエストを作成

my $req = new HTTP::Request GET => 'http://localhost/index.html';
$req->content_type('application/x-www-form-urlencoded');
$req->content('match=www&errors=0');

ユーザ・エージェントにリクエストを渡し、返されたレスポンスを取得

my $res = $ua->request($req);

レスポンスの結果

print $res->content;

--この続きをご教授お願いします。

Answer 1

レスポンスの形式によって処理は変わってきます。

質問では「http://localhost/index.html」にアクセスしており、HTMLを取得しているだけなので、結果を表示するだけなら「print $res->content」でも問題ないと思います。
もしもスクレイピングのようなことをやりたければ、HTTPモジュールではなくスクレイピング用のモジュールを使用したほうがよいと思います。
Web::Scraper

もし、WEB APIの場合、結果はJSONまたはXMLで返却されると思いますので、各種パーサーを用いて、処してください。
１）JSON
参考
２）XML
参考

Comments

[tester_04212]

回答ありがとうございます。各種パーサーのJSON、XML、が使えない環境です。インストールすれば早いのですが、容易にできません。

GETで叩いてWeb API の返り値を POST で受け取って Perl で処理を想定しております。

[scrpgil]

各種パーサーが使えない状況となると組み込み系かなんかでしょうか。パーサー（というかモジュール）のインストールは以下の2通りがあります。
１）cpanコマンドでインストールする
cpanが使える環境なら以下のコマンドで各モジュールを入手できます。cpanはperlが使えるなら大抵使えると思います。ためしにコンソールでcpanとうってみてください。

cpan モジュール名

２）cpanサイトからモジュールをダウンロードして読み込み
cpanのサイトに行き直接モジュールをダウンロードしてください。
[XML::Simple](http://search.cpan.org/~grantm/XML-Simple-2.24/lib/XML/Simple.pm)
上のリンクの右側にDownloadってリンクがあると思いますのでそれを「use XML::Simple」なりで読み込んで使う。

[tester_04212]

回答ありがとうございます。
モジュールあることインストール手順等は知っていました。説明不足で申し訳ありません。インストール以外で模索している感じです。

インストール以外に方法はなさそうですかね。。。

[scrpgil]

そうでしたか・・・。インストール以外となると自作というのが思いつきます。
以下にperlでjsonパーサーを自作するというブログがあったので参考になるかと・・・
http://adiary.blog.abk.nu/0295

XMLはちょっと見当たりませんでした・・・

[tester_04212]

情報ありがとうございます。試してみます。

[tester_04212]

難しそうですね。。。
ちなみにレスポンス返却先がこちらの形式だとどのように受け取れば良いのでしょうか？
application/x-www-form-urlencoded
クエリはこのように来ます。
key1=value2&key2=value2

以下サンプルコードです。これで取得できますでしょうか？
require LWP::UserAgent;
my $ua = LWP::UserAgent->new;
$ua->env_proxy;

my $response = $ua->get('http://search.cpan.org/');

$response にこれでkey1=value2&key2=value2が格納されていますでしょうか？