perlでグラフを作る [perl]
今日は勉強したので忘れないように書いておくぞ。
サーバ移ってからperlのモジュールが豊富になったので今回は
GD::Graph
GD::Text
を使ってグラフを作ってみました。
以下ソース。
use strict;
use GD::Graph::pie;
use GD::Text;
use Jcode;
my @data = (
[ ( jcode("バーチャルボーイ")->utf8, jcode("プレステ")->utf8, jcode("太鼓の達人")->utf8 )],
[ 43, 32, 15 ]
);
my $graph = GD::Graph::pie->new( 300, 300 );
$graph->set(
title => jcode("円グラフ（日本語版）")->utf8,
'3d' => 0,
t_margin => 10,
b_margin => 10,
l_margin => 10,
r_margin => 10,
start_angle => 180,
transparent => 0,
);
GD::Text->font_path( "./" );
$graph->set_title_font( "GOTHIC_FONT", 12 );
$graph->set_value_font( "GOTHIC_FONT", 8 );
my $image = $graph->plot( \@data );
open( OUT, "> graph.png");
binmode OUT;
print OUT $image->png();
close OUT;
print "Content-type: text/html\n\n";
print <<"HTML";
<html>
<img src="graph.png">
</html>
HTML
exit;
日本語を扱うにはTTFが必要なわけだが
windowsのフォントをアップしてもダメ（当たり前？）だったので
そうだ！MacOSXってUNIXベースのOSだったなと思いOSXから適当な日本語のTTFを拝借。
あら、見事に日本語表示できたじゃないですか。
コメント 0