/jpgorhor

a Perl script to recursively set EXIF Orientation to Horizontal

Primary LanguagePerlMIT LicenseMIT

jpgorhor

Reset all Orientation tags to Horizontal using Phil Harvey's excellent ExifTool.

Dave Perrett's post explains the Orientation problem well. Like Dave, I was annoyed by image rotations not being treat consistantly across various systems.

I define a command jpo in my $Bash/bashrc-wm and my $MSWin10\PSProfile.ps1.


deprecated Perl script

$onGH/jpgorhor/jpgorhor.pl (unnecessarily) wraps works recursively, on all the jpegs found in the current directory, and all subdirectories. There is no undo!

Only changes the Orientation tags of files that have them definitely set to something other than Horizontal.

Displays progress. If you want to capture what it's done, run it from a terminal.

I was proud of this little script, but then I realised it solves a problem already solved by Phil.