Anatomography Web API サンプルコード - Perl - Getting Started

はじめに

全身像を描画します。JSONオブジェクトをLWP::UserAgentを利用してGETリクエストします。

サンプルコード

出力先ファイルは適宜変更して下さい。

#!/usr/bin/env perl
use strict;
use LWP::UserAgent;

# リクエスト先URL
my $serverURL = "http://lifesciencedb.jp/bp3d/API/";

# 描画リクエスト用のJSON文字列を作成
my $json = <<JSON;
{
 "Common":{
  "TreeName":"isa"
 },
 "Part":[
  {
   "PartName":"anatomical entity"
  }
 ]
}
JSON

# 出力
open OUT, ">out_01.png";
binmode(OUT);
print OUT  &getImage($json);	# 作成したJSONを利用して描画リクエスト
close OUT;

# 生成したJSONをパラメータとしてimageに対してGETリクエストするサブルーチン
sub getImage () {
	my $json = shift;
	my $userAgent = LWP::UserAgent->new;
	my $request = HTTP::Request->new('GET', $serverURL."image?".$json);
	my $response = $userAgent->request($request);
	return $response->content;
}

出力画像