如何使用ImageMagick API在Perl中编写此命令行命令？

如何使用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)

我在中找到了解释并取消/更改了代码。这对我很有用：

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;

---

正如brian在回答相关问题时所说，您可能需要减少深度。有关详细信息，请参见其他问题。

您应该列出此命令所做的事情。然后，您可以查看并应用所有需要的内容。问题是，我不太喜欢perlmagick来了解这个命令的确切功能，但我知道如何解析结果以获得图像中第一个像素的像素颜色（这是我的目标）您想在Perl脚本中使用它吗，或者您需要这个文本文件吗？我想在perl脚本中使用它