Генерирую изображение в PERL. Почему оно искажается? Можно ли как-то исправить?

Question

Ученик (105)

Генерирую изображение в PERL. Почему оно искажается? Можно ли как-то исправить?

Код:



#!/usr/bin/perl -w

use CGI;



$cgi = new CGI;



$file = $ENV{'DOCUMENT_ROOT'}."/m.jpg";



unless (-e $file)

{

    print $cgi->header();

    print "NE";

    exit;

}



open(IMAGE, $file);

$size = -s $file;

read IMAGE, $data, $size;

close(IMAGE);



print $cgi->header(-type => 'image/jpg');



print $data;

Появляется сильно искаженное изображение... Где ошибка?

#изображение

Мы платим до 300 руб за каждую тысячу уникальных поисковых переходов на Ваш вопрос или ответ Подробнее

1 ОТВЕТ

ПОХОЖИЕ ВОПРОСЫ

В чём НЕОБЫЧНОСТЬ этого изображения? Его уникальность, тайна и загадка? Как ЭТО работает?

Ваше изображение на аватаре - уникальное, или его можно найти в Интернете?

Как по адресу изображения узнать источник, откуда оно было взято ??? Не здесь, а вообще - в инете.

Как такое может быть, что изображение gif имеет два расширения - gif и jpg ??? В ссылке на его адрес

Как искать изображения в Яндексе по фото, но с добавленим его описания? Или на других сервисах?

Почему моё изображение с веб камеры не показывает в агенте у того с кем говорю? Мне видно всё, а ему только аватар.

А вы задумывались, как выглядите, когда злые?? И как же?) Можно образное изображение)

Как можно назвать ситуацию на этом изображении ) ?

как называются эти компо - штуки где можно изнутри рассматривать комнату, двигая изображение ?

Почему после того как в ФСБ ввели медаль с изображением Ф.Э. Дзержинского, кипишнули ЛИБЕРАСТЫ и выступили УКРАИНСКИЕ СМИ(ВН)?

score 0 · Answer 1

PERL - язык для работы с текстами. Поэтому он отдает файлы в ASCII режиме (по умолчанию), а не в BINARY, как следовало бы отдавать изображения. Поэтому, после открытия файла, надо перевести его в бинарный режим:



binmode IMAGE;