Convert
file: potd_handle_image.pl
1: #!/usr/bin/env perl
2: use 5.010;
3: use strict;
4: use warnings;
5: use File::Copy;
6: use Imager;
7: use Image::ExifTool qw(:Public);
8:
9: my ($src, $target, $archive) = @ARGV;
10:
11: my $image = Imager->new;
12: $image->read( file => $src );
13:
14: my $exif = ImageInfo($src);
15: if ($exif->{Orientation} && $exif->{Orientation} =~ /(\d+)/) {
16: my $degrees = $1;
17: my $rotated = $image->rotate(right=>$degrees);
18: say "Rotating image $degrees right";
19: $image = $rotated;
20: }
21:
22: my $scaled = $image->scale( xpixels => 800 );
23: $scaled->write( file => $target );
24:
25: move( $src, $archive);
26: