Bilder drehen mit Perl ?!

Ich hab jetzt fast 2 Stunden gesucht, aber net wirklich was nützliches gefunden...

Weis jemand wie man mit Perl Bilder (JPEG) einfach um 90° drehen kann?
 
Falls es eine Linux-Maschine mit installiertem ImageMagick ist, könntest du einfach den Befehl "convert -rotate 90 bild.jpg bild_new.jpg" aufrufen (auch aus Perl über die Backticks bzw. qx() ).
Ansonsten wirst du in Perl irgendeine Grafikbibliothek ansprechen müssen, z.B. PerlMagick oder die GD Lib oder PerlSDL ...

mfg, metax.
 
Es sollte wenn möglich Platformunabhängig sein, sprich dann irgend ein Perl-Modul...

in GD, und SDL hab ich zwar alles mögliche an Möglichkeiten gefunden, aber keine zum drehen von bildern ... werd mir PerlMagic mal ansehn - danke :)
 
in GD, und SDL hab ich zwar alles mögliche an Möglichkeiten gefunden, aber keine zum drehen von bildern

Hm, dann hast du wohl an der falschen Stelle gesucht.
Ruf mal "perldoc GD" auf, dann siehst du eine Man-Page für die GD-Funktionen in Perl.

Da gibt es unter anderem "$image = $sourceImage->copyRotate90()" oder "$image->copyRotated($sourceImage,$dstX,$dstY,$srcX,$srcY,$width,$height,$angle)".
Wie du das ansprechen musst, kriegst du wahrscheinlich selbst raus ;)

mfg, metax.
 
Zurück
Oben