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

Anatomography Web API サンプルコード - Perl - GIFアニメーション

はじめに

全身の回転GIFアニメーション像を作成します。

サンプルコード

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

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

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

# 描画リクエスト用のJSON文字列を作成
my $json = <<JSON;
{
	"Common": {
		"Version":"4.0",
		"TreeName":"partof"
	},
	"Window": {
		"ImageWidth":200,
		"ImageHeight":200
	},
	"Part":[
		{
			"PartName":"Human body"
		}
	]
}
JSON

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

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

出力画像