Perl で REST API (Post) 実行

perl だと、だいぶ簡単に書ける。素晴らしい。

use strict;
use HTTP::Request::Common;
use LWP;
use JSON;

my $uri = "https://httpbin.org/post";
my $postData = {"key1" => "val1", "key2" => "val2"};
my $ua = LWP::UserAgent->new();
my $res = $ua->request(POST($uri, $postData));

my $decoded = decode_json($res->content);
print $decoded->{"form"}->{"key1"}; # 「val1」と出力される。

標準で json の decode も出来る。こういうスクリプトを作る時は perl が楽だなあ。