Percentage difference between images: Difference between revisions
Content added Content deleted
(added Perl 6) |
SqrtNegInf (talk | contribs) (Added Perl example) |
||
Line 1,088: | Line 1,088: | ||
Printf.printf " diff: %f percent\n" diff_percent; |
Printf.printf " diff: %f percent\n" diff_percent; |
||
;;</lang> |
;;</lang> |
||
=={{header|Perl}}== |
|||
<lang perl>use Image::Imlib2; |
|||
my $img1 = Image::Imlib2->load('Lenna50.jpg') || die; |
|||
my $img2 = Image::Imlib2->load('Lenna100.jpg') || die; |
|||
$w = $img1->width; |
|||
$h = $img1->height; |
|||
for $x (0..$w-1) { |
|||
for $y (0..$h-1) { |
|||
my ($r1, $g1, $b1) = $img1->query_pixel($x, $y); |
|||
my ($r2, $g2, $b2) = $img2->query_pixel($x, $y); |
|||
$sum += abs($r1-$r2) + abs($g1-$g2) + abs($b1-$b2); |
|||
} |
|||
} |
|||
printf "%% difference = %.4f\n", 100 * $sum / ($w * $h * 3 * 255); |
|||
</lang> |
|||
{{out}} |
|||
<pre>% difference = 1.7747</pre> |
|||
=={{header|Perl 6}}== |
=={{header|Perl 6}}== |