forum.lissyara.su

Код: Выделить всё

#!/usr/bin/perl
 #
 # Return Compared differences between two images.
 #
use Image::Magick;
$i1 = Image::Magick->new;
$i2 = Image::Magick->new;

$i1->Read( filename=> shift );
$i2->Read( filename=> shift );

$i1->Scale(width=>32, height=>32);
$i2->Scale(width=>32, height=>32);

$x = $i1->Compare(image=>$i2);
die "$x" if $x;

printf "Errors is %f\n",     $i1->Get('error');
printf "Mean Error is %f\n", $i1->Get('mean-error');