読者です 読者をやめる 読者になる 読者になる

試しにGoogleChartを使ってみる

計算した数値で、図を描画したいと思いました。
EXCELに貼付けたり、gnuplotを準備したりするのが面倒くさかったので、試しにGoogleChartを使ってみました。
perlから扱いたいので「Google::Chart」モジュールを使用しました。

use strict;
use warnings;
use Google::Chart;

my @list;
push @list, create_list(sub { my $x = shift; return $x });
push @list, create_list(sub { my $x = shift; return $x * $x });

sub create_list {
    my ($f) = @_;

    my @y;
    for (my $x = 0; $x <= 100; $x++) {
        my $y = $f->($x);
        if ($y > 100) {
            last;
        }
        push @y, $y;
    }
    return \@y;
}

my $chart = Google::Chart->new(    type => "Line",    size => '300x300',    data => [@list],    );

print $chart->as_uri, "\n";

$chart->render_to_file( filename => 'filename.png' );


f:id:memememomo:20100608132058p:image


思ったに図が描画できません。
用途を間違っている気がする。
素直にgnuplotを使いましょうか・・・・。