请教 Perl中使用Image::Magick模块，如何获得像素的值？<br />

在PHP中，我可以这样获得像素值：

< php
$image = new Imagick("logo/1.jpg");
$r=$image->getImagePixelColor(0,0);
print_r($r->getColor());
exit();
>

//Array ( [r] => 47 [g] => 77 [b] => 17 [a] => 1 ) 



但在perl中，我这样得到的值是不一样的：

my $image = new Image::Magick;
$image->Read("logo/1.jpg");
my ($r, $g, $b) = $image->GetPixel(x=>0,y=>0,normalize=>0);
print $r;exit 0;

12079

正确的值应该是47



如果我使用Image::Imlib2，则结果是正确的：

my $image = Image::Imlib2->load("logo/1.jpg");
my ($r, $g, $b,$a) = $image->query_pixel(0,0);print $r;exit 0;

47