6 use Image
::ObjectDetect
;
9 #my $file = 'input.jpg';
10 my $image = Imager
->new->read(file
=> $file);
13 #'/usr/share/opencv/haarcascades/haarcascade_frontalface_default.xml',
14 #'/usr/share/opencv/haarcascades/haarcascade_frontalface_alt.xml',
15 '/usr/share/opencv/haarcascades/haarcascade_frontalface_alt2.xml', #less sensitive
16 #'/usr/share/opencv/haarcascades/haarcascade_frontalface_alt_tree.xml',
17 #'/usr/share/opencv/haarcascades/haarcascade_profileface.xml',
19 #'/usr/share/opencv/haarcascades/haarcascade_upperbody.xml',
20 #'/usr/share/opencv/haarcascades/haarcascade_lowerbody.xml',
21 #'/usr/share/opencv/haarcascades/haarcascade_fullbody.xml',
23 #'/usr/share/opencv/haarcascades/haarcascade_mcs_eyepair_small.xml',
24 #'/usr/share/opencv/haarcascades/haarcascade_mcs_eyepair_big.xml',
29 push (@faces, detect_objects
($_, $file));
32 for my $face (@faces) {
33 my $file2 = 'paroubek.jpg';
34 my $image2 = Imager
->new->read(file
=> $file2);
35 $image2 = $image2->scale(xpixels
=> $face->{width
}, ypixels
=> $face->{height
});
36 $image->paste(left
=> $face->{x
}, top
=> $face->{y
}, src
=> $image2);
39 $image->write(file
=> 'output.jpg');
41 print "Content-type: text/html\n\n";
43 print "<TITLE>face detect</TITLE>\n";
47 print "<img src='input.jpg'>\n";
48 print "<img src='face.jpg'>\n";
49 print "<img src='output.jpg'>\n";
This page took 0.301178 seconds and 4 git commands to generate.