Percentage difference between images: Difference between revisions
Percentage difference between images (view source)
Revision as of 02:45, 8 December 2018
, 5 years agoAdded Perl example
(added Perl 6) |
SqrtNegInf (talk | contribs) (Added Perl example) |
||
Line 1,088:
Printf.printf " diff: %f percent\n" diff_percent;
;;</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}}==
| |||