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;

正如布赖恩在回答链接问题时所说，您可能需要减少深度。有关详细信息，请参阅另一个问题。