Gedrehte Bilddateien abhängig vom Endgerät - wie begegnet ihr der Sachlage
bearbeitet von ursus contionabundoSo müsste es gehen (Hab lange kein Perl mehr gemacht...):
~~~perl
use Image::Magick;
function imagecopy( $from, $to ) {
$image = new Image::Magick;
if ( $image->Read( $from ) ) {
return $image->Write(filename=>$to);
}
}
~~~
Das kann, wie beschrieben, noch mehr: [Image::Magick](https://imagemagick.org/script/perl-magick.php)
Die Drehung (und noch viel mehr) kannst Du aus dem Original mit [ExifTool](https://metacpan.org/pod/Image::ExifTool) auslesen.