Bilder mit perl auf festplatte speichern

[Norbert Kölln]

Moin, moin!

Beim Öffnen der Dateien mußt Du festlegen, das sie im Binärmodus bearbeitet werden sollen.

open(INPUT, "<xyz.jpg");
binmode(INPUT);
while(<INPUT>) { $dateiinhalt.=$_; }
close(INPUT);

open(OUTPUT, ">neu.jpg");
binmode(OUTPUT);
print OUTPUT $dateiinhalt;
close(OUTPUT);

Alles klar?

Norbert