new file: Image/image-hard-rotate.pl

Author: trizen

Image/image-hard-rotate.pl

@@ -0,0 +1,30 @@
+#!/usr/bin/perl
+
+# Author: Trizen
+# Date: 10 August 2025
+# https://github.com/trizen
+
+# Hard-rotate images that contain the "Orientation" EXIF tag specified as "Rotate 90 CW" or "Rotate 270 CW".
+
+use 5.036;
+use Imager;
+use Image::ExifTool qw(ImageInfo);
+
+foreach my $file (@ARGV) {
+
+    say ":: Processing: $file";
+
+    my $info        = ImageInfo($file);
+    my $orientation = $info->{Orientation};
+
+    if (defined($orientation) and $orientation =~ /^Rotate (\d+) CW/) {
+
+        my $angle = $1;
+        say "-> Rotating image by $angle degrees clockwise...";
+
+        my $img = Imager->new(file => $file) or die Imager->errstr();
+        $img = $img->rotate(degrees => $angle);
+        unlink($file);
+        $img->write(file => $file) or die $img->errstr;
+    }
+}

README.md

@@ -539,6 +539,7 @@ A nice collection of day-to-day Perl scripts.
     * [Gd star trails](./Image/gd_star_trails.pl)
     * [Gif2webp](./Image/gif2webp.pl)
     * [Horizontal scrambler](./Image/horizontal_scrambler.pl)
+    * [Image-hard-rotate](./Image/image-hard-rotate.pl)
     * [Image-unpack](./Image/image-unpack.pl)
     * [Image2ascii](./Image/image2ascii.pl)
     * [Image2audio](./Image/image2audio.pl)