Bilder verkleinern mit Perl und GD Library
Thumbnails oder einfach kleinere Bilder die auch gedreht sein können
- Abstrakte Datentypen in c deklarieren und in Dateien speichern
- Bilder verkleinern mit Perl und GD Library
- Bilder verkleinern, Thumbnails erzeugen mit PHP
- Binary und UTF-8 in MySQL Tabellen speichern
- CPAN Module Device::USB für Win32 compilieren und installieren
- Dateinamen in UTF-8 auf beliebigen Betriebssystemen
- Datentypen haben plattformübergreifend stets dieselbe Byte-Länge
- Datum als lange Zählung und Uhrzeit in dezimaler Darstellung
- Den Zustand von Checkboxen numerisch kodieren
- Der letzte Rest: GET, PUT, POST, DELETE ...
- Der richtige Umgang mit Binaries in C und in Perl
- Die Multi-Media-Mail-Datei der Zukunft, SMS, MMS, Internet-Mail
- Drucken auf einen Netzwerkdrucker mit Perl
- Ein eigenes Forum programmieren, Zustandsmodell einer Webanwendung
- Entwickeln auf dem Lokalen Rechner, dem localhost
- Ganze Zahlen in Dateien Schreiben in Programmiersprachen c, Perl usw.
- Globale Variablen der main-Class in einem Objekt bündeln
- HTTP/1.1 Multiple Request, Persistent Connection und Pipelining
- Hash-Slices erleichtern den wahlfreien Zugriff
- Interne Zeichenkodierung, Characters, Bytes und Bytesemantics
- Julianischen und Gregorianischen Kalender berechnen mit C
- Just another OOP Tutorial for Perl
- Little Endian, Big Endian
- Locken von Dateien für atomare Lese- und Schreibzugriffe
- Modern Perl, Modern Style, Perl OOP, TDD
- Nameserver-Abfragen, UDP mit Perl und mit C
- PHP serialize, unserialize ineffizient
- Perl OOP: Getter automatisieren ohne Gettermethoden zu definieren
- Perl's Exception::Class oder Exceptions klassifizieren
- Perl-Äquivalent zu PHP __toString()
- Perl5 OOP Overload und für was das gut ist
- Perl6 Perls Zukunft oder ein totgeborenes Kind
- Perl: Dependency Injection als Design Pattern
- Perl: Referenzen auf Variablen und Funktionen
- RFC gerechte Formate für Datum und Zeit
- RTSP Real Time Streaming Protocol leicht verständlich
- Random Access, Persistenz und ein Schichtenmodell
- Schlüselparameter, Zweckbestimmung und Umgang
- Serialize Algorithmen leicht verständlich, Binary safe Read and Write
- Serverumgebung nach CGI/1.1
- Simple Mail Transfer Protocol einfach erklärt
- Transformation von Datenstrukturen für eine transportgerechte Verpackung
- Warum ein Data Abstraction (Access) Layer
- Webformulare und Fehlerbehandlung beim Senden der Daten mit Ajax
- XML und der Unsinn, Random Access auf Dateiebene abzubilden
- Anwendungsbeispiele und Programmieren mit JavaScript
- Mein Framework gibt es auch in PHP
- Perl ist meine erste Wahl zum Programmieren von Webanwendungen
Während in PHP diese Dinge mit Built-In-Funktionen erledigt werden können, ist es für Perl erforderlich daß die GD-Library installiert ist. Und so wird sie eingebunden, schlicht und einfach mit:
use GD;
Mit dem Bild was verkleinert werden soll, wird ein GD-Objekt erstellt womit auch die gegebenen Abmessungen ermittelt werden können. Damit werden die Abmessungen für das Kleinbild berechnet, wobei die neue Breite einfach nur vorgegeben wird. Damit wird ein neues GD-Objekt erstellt für das Kleinbild und auf dieses Objekt wird dann das Original kopiert.
# GD-Objekt aus dem Original
my $gdori = GD::Image->newFromJpeg($path);
# gegebene Höhe und Breite ermitteln
my ($width,$height) = $gdori->getBounds();
# die neue Breite wird vorgegeben
my $newwidth = $W;
# berechne den Ratio und damit die neue Höhe
my $rat = $width/$newwidth;
my $newheight = $height/$rat;
# nun kann das GD-Objekt für das Kleinbild erstellt werden
my $gdthumb = new GD::Image($newwidth, $newheight);
# Das Original wird auf das neue Objekt kopiert
$gdthumb->copyResized($gdori,0,0,0,0,$newwidth,$newheight,$width,$height);
Falls das Bild gedreht werden muß, darüber gibt die Angabe der Orientation in den Exif-Daten eine Auskunft.
# evntl muß noch gedreht werden
my $orientation = eval{
my $xf = Exif->new($f->read);
$xf->{TiffTags}{Orientation};
} || 1;
if($orientation == 8){ $gdthumb = $gdthumb->copyRotate270() }
elsif($orientation == 6){ $gdthumb = $gdthumb->copyRotate90() }
elsif($orientation == 3){ $gdthumb = $gdthumb->copyRotate180() }
Schließlich wird die Binary als PNG-Datei erzeugt, die weitere Verarbeitung hängt von der Anwendung ab (Speichern als Datein, Ausgabe im Browser usw.):
$binary = $gdthumb->png;
Datenschutzerklärung: Diese Seite dient rein privaten Zwecken. Auf den für diese Domäne installierten Seiten werden grundsätzlich keine personenbezogenen Daten erhoben. Das Loggen der Zugriffe mit Ihrer Remote Adresse erfolgt beim Provider soweit das technisch erforderlich ist. sos@rolfrost.de.