:: Cepheid :: - ImageMagickの使用例 | ピクセルの色情報を得る色情報を得る一例 Get()メソッドに属性pixel[x, y]を与えれば指定した座標のピクセル情報を得ることが出来る。 #!/usr/local/bin/perl -w use strict; use Image::Magick; my $file = "sample.jpg"; my $image = Image::Magick->new; $image->Read($file); my ($r, $g, $b, $ugh) = split ',', $image->Get("pixel[25,20]"); print "16bit - $r $g $b $ugh\n"; my $rgb = ""; foreach ($r, $g, $b) { # 256で割る $_ = int($_ / 256); # 10進整数→16進文字列への変換 $_ = unpack("H2", pack(
