GIF/JPEG mit PERL ausgeben

[$xNeTworKx]

Hallo,

wie kann ich mit möglichst wenig Aufwand und wenn möglich ohne externe Module eine GIF, JPEG oder ZIP-Datei über PERL ausgeben?

Indem du den richtigen Content-type ausgibst zB image/gif. Danach gibst du das Bild in der Standardausgabe aus.
Du musst vor der Ausgabe noch binmode STDOUT; setzen, und danach.
print STDOUT $bild;

Wie kann ich bei GIF/JPEG-Bildern die Bildgröße in Pixeln feststellen? Kann ich diese sogar verändern?

Ja, am besten mit den Modulen Image::Magick und Image::Size. Zumindest verwende ich immer diese Module, wenn ich aus einem Haufen Bildern Thumpnails erzeugen will.

$xNeTworKx.