perlでHTTP PUT methodでリクエストしたいときのサンプル
perlでHTTP PUT methodでリクエストしたいシチュエーションに
遭遇したので、サンプルコードと動作確認環境をさらしてみます。
サンプルは以下
Google App Engine上の動作確認用環境です。
ご自由に利用してもらってかまいませんが、
予告無しで環境を落とすかもしれないのでご了承ください。
で、実行すると、
遭遇したので、サンプルコードと動作確認環境をさらしてみます。
サンプルは以下
#!/usr/bin/perlhttp://tanargle.appspot.com/rest_testは
use strict;
use warnings;
use Data::Dumper;
use HTTP::Request;
use LWP::UserAgent;
# 動作確認環境 on google app engine
my $url = 'http://tanargle.appspot.com/rest_test';
my $ua = new LWP::UserAgent;
# PUT を指定する
my $request = new HTTP::Request(PUT => $url);
my $body = 'foo=bar&hoge=fuga';
$request->content($body);
my $response = $ua->request($request);
print $response->content();
Google App Engine上の動作確認用環境です。
ご自由に利用してもらってかまいませんが、
予告無しで環境を落とすかもしれないのでご了承ください。
で、実行すると、
$ perl put.plうまくいくと↑のようなメッセージが返ってきます。
PUT Methodを受け付けました
