画像を、単純化して置き換えるような処理をしたかった。 そのために、画像内の色情報を複数プロットし、平均化する処理を書いてみた。 こんな風にできたよ。 こんな画像を読み込ませると、 処理して、 こんな色にしてくれる。 Image::Magick使って、色情報取得 package Package; use strict; use Image::Magick; sub new { my ($pkg, $param) = @_; my $hash = { img => $param->{'img'}, plot => (defined $param->{'plot'} and $param->{'plot'} > 0) ? $param->{'plot'} : 3, }; return bless $hash, $pkg; } sub get_average_color { my ($self)