如何使用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, getting color values by pixel中找到了解释并取消/更改了代码。这对我有用：

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;

正如布莱恩在回答相关问题时所说，你可能需要减少深度。有关详细信息，请参阅其他问题。