如何使用ImageMagick API在Perl中編寫此命令行命令？

如何在Perl中使用ImageMagick API執行以下命令行命令？如何使用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)

來源

2012-09-14 Thariama

你應該列出這個命令所做的事情。然後你可以去看看http://www.imagemagick.org/script/perl-magick.php並應用你需要的所有東西。 – simbabque

問題是，我沒有那麼多perlmagick知道這個命令做了什麼，但我知道如何解析結果，以獲得我的圖像中的第一個像素的像素顏色（這是我的目標） – Thariama

你想在Perl腳本中使用它，還是需要這個文本文件？ – simbabque

我發現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;

正如他在回答這個鏈接的問題說布賴恩，你可能需要減少的深度。有關詳情，請參閱其他問題。

來源

2012-09-14 09:49:36 simbabque

+1並且接受 - thx，這個工作 – Thariama

如何使用ImageMagick API在Perl中編寫此命令行命令？

回答

相關問題