[Imager] Bild wird nicht rotiert? (gelöst) (Fragen zu Perl-Modulen)

[thread]21479[/thread]

[Imager] Bild wird nicht rotiert? [gelöst]

Tags: perl5 Grafik Ähnliche Threads

Leser: 7

Articles: hide open all | hide show old branches

GwenDragon

2023-07-31 15:02

User since
2005-01-17
14607 Artikel
Admin1

Modul

Imager 1.019

Ich versuche ein Bild zu rotieren, weil das Original per EXIF eine andere Orientierung hat.

Mein Testcase, ob das Rotieren überhaupt klappt:
Programm a.pl
Bild a-hoch.jpg

a.pl

Code (perl): (dl )

#!/usr/bin/perl

use strict;
use warnings;
use 5.024;
use utf8;

use Imager;

my $img = Imager->new;
my $filename = shift;
my $angle = shift // 45;

$img->read( file => $filename ) or warn $img->errstr;
$img->rotate( degrees => $angle ) or warn $img->errstr;
$img->write( file => "ROT-" . $angle . "_" . $filename) or warn $img->errstr;

Ich rufe das Programm so auf:
a.pl a-hoch.jpg 30
und es erzeugt ROT-30-a-hoch.jpg

Aber das Bild ist dann trotzdem nicht um 30° rotiert.

Irgendeine Idee was ich falsch mache?

Getestet mit
Perl 5.32 / Linux Debian 11
Strawberry Perl 5.32 / Windows 11.

//EDIT 16:12

Selbst das klappt nicht mit einem lauft EXIF um 90° Uhrzeigersinn gedrehten Bild eine Smartphones.

Code (perl): (dl )

use Imager;

my $img = Imager->new;
my $filename = shift;
my $angle = shift // 90;

die "Nur 90, 180 und 270 als Rotation im Unhrzeigersinn" 
        if ($angle !~ /^(90|270|180)$/); 

$img->read( file => $filename ) or warn $img->errstr;
$img->rotate( right => $angle ) or warn $img->errstr;
$img->write( file => "ROT-" . $angle . "_" . $filename) or warn $img->errstr;

Was nun?
Kann doch nicht sein, dass sowas in heutiger Zeit nicht geht, ein Bild zu Drehen, um die richtige Ausrichtung zu haben.

//EDIT 17:20 Tja, wenn es eine Zuhause probiert, und dort perldoc und CPAN lesen kann.

Sieht so aus als wirke das rotate() nicht auf das $img-Objekt.
Stattdessen muss ich folgendes machen:

Code: (dl )

$img->read( file => $filename ) or warn $img->errstr;
my $img_rotated;
$img_rotated = $img->rotate( degrees => $angle ) or warn $img->errstr;
$img_rotated->write( file => "ROT-" . $angle . "_" . $filename) or warn $img_rotated->errstr;

Lesen bildet, aber nur wenn ich per Perldoc (nicht auf dem Rechner wo ich war) oder WWW (CPAN war heute gestört) dran komm.

Das vorherige geht kürzer:

Code: (dl )

1
2
3

$img->read( file => $filename ) or warn $img->errstr;
$img = $img->rotate( degrees => $angle ) or warn $img->errstr;
$img->write( file => "ROT-" . $angle . "_" . $filename) or warn $img->errstr;

Anhänge

image/jpeg
371 x 655

a-hoch.jpg

Last edited: 2023-09-25 09:58:08 +0200 (CEST)

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2023-07-31 15:02.