Downloaded 33 times
![...; my $diff = $org->difference( other => $numbers[$n] ); $diff = $diff->to_rgb8; my $count; for ( my $x = 0 ; $x < $width ; $x++ ) { for ( my $y = 0 ; $y < 38 ; $y++ ) { my $pixel = $diff->getpixel( x => $x, y => $y ); next unless $pixel; my $result = $pixel->rgba; $count++ if $result == 255; } }...;](/image.pl?url=https%3a%2f%2fimage.slidesharecdn.com%2fimagehacks-111014223525-phpapp01%2f75%2fHacks-26-2048.jpg&f=jpg&w=240)
![•• – –•• –• positive.dat [filename] [# of objects] [[x y width height] [... 2nd object] ...] images/01.jpg 1 140 100 45 45 nega%ve.dat images/neg-‐01.jpg images/neg-‐02.jpg](/image.pl?url=https%3a%2f%2fimage.slidesharecdn.com%2fimagehacks-111014223525-phpapp01%2f75%2fHacks-44-2048.jpg&f=jpg&w=240)
Uploaded byYusuke Wada
3,451 views
画像Hacks
The document shows code for processing images using the Imager module in Perl. It demonstrates scaling, cropping, mapping color values, combining images using rubthrough, adding text with QR codes, detecting differences between images, and detecting faces in an image using a cascade classifier. It also includes code to search for adult video actresses from a porn module.
Recommended
More Related Content
What's hot
Viewers also liked
More from Yusuke Wada
![Vibe Coding vs. Spec-Driven Development [Free Meetup]](/image.pl?url=https%3a%2f%2fcdn.slidesharecdn.com%2fss_thumbnails%2fvibecodingvsspecdrivendevelopment-251209105622-43f455e7-thumbnail.jpg%3fwidth%3d640%26amp%3bheight%3d640%26amp%3bfit%3dbounds&f=jpg&w=240)
画像Hacks
- 5.use strict;use warnings;useImager;my $file = 'doya.jpg';my $image = Imager->new( file => $file ) or die Imager->errstr;$image = $image->scale( xpixels => 100 );$image->write( file => 'out.jpg' ) or die $image->errstr;
- 6....;my $image =Imager->new( file => $file ) or die Imager->errstr;$image = $image->scale( xpixels => 100 );$image = $image->crop( height => 100 ); #$image->write( file => 'out.jpg' ) or die $image->errstr;...;
- 11.sub get_map { my $gamma = shift; my @map = map { int( 0.5 + 255 * ( $_ / 255 )**$gamma ) } 0 .. 255; return @map;}$image->map( red => get_map(0.5), green => get_map(0.65), blue => get_map(0.8));my $waku = Imager->new( file => 'waku.png' );$image->rubthrough( src => $waku );
- 20....;my $font =Imager::Font->new( file => 'HiraKakuPro-W3.ttf' );...;
- 21....; my $qrcode = Imager::QRCode->new( size => 3, margin => 0, version => 1, level => 'M', casesensitive => 1, lightcolor => Imager::Color->new( 255, 255, 255 ), darkcolor => Imager::Color->new( 35, 54, 92 ), ); my $qr = $qrcode->plot( $text ); $qr = $qr->scale( xpixels => 90 ); $image = $image->paste( left => 590, top => 198, src => $qr );...;
- 25.
- 26....; my $diff = $org->difference( other => $numbers[$n] ); $diff = $diff->to_rgb8; my $count; for ( my $x = 0 ; $x < $width ; $x++ ) { for ( my $y = 0 ; $y < 38 ; $y++ ) { my $pixel = $diff->getpixel( x => $x, y => $y ); next unless $pixel; my $result = $pixel->rgba; $count++ if $result == 255; } }...;
- 32.use Imager;use Image::ObjectDetect;my $image = Imager->new->read( file => 'picture.jpg' );my $cascade = './haarcascade_frontalface_alt2.xml';my $detector = Image::ObjectDetect->new($cascade);my @faces = $detector->detect($file); #←my $purple_source = Imager->new->read(file => './purple.png');my $aspect = 1.5;for my $face (@faces) { my $purple = $purple_source->scale( xpixels => $face->{width} / $aspect, ypixels => $face->{height} / $aspect, ); $image->rubthrough( tx => $face->{width} / $aspect / 2 + $face->{x}, ty => $face->{height} / $aspect + $face->{y}, src => $purple, );}$image->write( file => './output.jpg' );
- 40.• – –• – –
- 41.•• – • – •• – • • •
- 42.use Acme::Porn::JP;…;my $porn= Acme::Porn::JP->new;my $actress_list = $porn->actress();for my $actress ( @$actress_list ){ search("$query $actress”);}…;$ perl -MAcme::Porn::JP -e '$p = Ace::Porn::JP->new; printscalar @{$p->actress};’4502
- 44.•• – –•• –• positive.dat [filename] [# of objects] [[x y width height] [... 2nd object] ...] images/01.jpg 1 140 100 45 45 nega%ve.dat images/neg-‐01.jpg images/neg-‐02.jpg