perl - ImageMagick APIを使用してPerlでこのコマンドラインコマンドを作成するにはどうすればよいですか？

Question

ImageMagick APIを使用してPerlで次のコマンドラインコマンドと同じことを行うにはどうすればよいですか？

convert scotland.jpg[1x1+0+0] -depth 8 txt:

結果は次のようになります。

# ImageMagick pixel enumeration: 1,1,255,rgb
0,0: ( 48, 50, 47)  #30322F  rgb(48,50,47)

Answer 1

Perl＆Image :: Magickで説明を見つけ、ピクセルごとに色の値を取得し、コードを持ち上げ/変更しました。これは私のために働きます：

use strict; use warnings;
use Data::Dumper; 
use Image::Magick; 

my $img = Image::Magick->new; 
$img->Read("foo.jpg");

my @pixel = $img->GetPixels(
  width  => 1,
  height => 1,
  x      => 0,
  y      => 0,
  map    => "RGB"
);

print Dumper \@pixel;

リンクされた質問に対するブライアンの回答で述べたように、深さを減らす必要があるかもしれません。詳細については、他の質問を参照してください。