Forum Webscript.Ru

Программирование => Perl => Тема начата: Dinara от 26 Мая 2002, 17:27:06

Название: Неполный вывод картинки
Отправлено: Dinara от 26 Мая 2002, 17:27:06

Вывожу картинку таким кодом:

Код: [Выделить]


print "Content-Type: image/gif\\n\\n";
binmode(STDOUT);
open(stPICTURE, $picture);
print ;
close(stPICTURE);


В результате показывается только маленький кусочек картинки, только совсем мелкие картинки выводятся полностью.

Никто не знает, как лечить?

Название: Неполный вывод картинки
Отправлено: Dinara от 26 Мая 2002, 17:39:18

Сорри, поторопилась :)
Нашла решение.

Код: [Выделить]


open(stPICTURE, $picture);
binmode(stPICTURE);
$pic = "";
while (read(stPICTURE, $buff, 1)) {
$pic .= $buff;
}
close stPICTURE;
binmode(STDOUT);
print $pic;


Название: Неполный вывод картинки
Отправлено: glebushka от 26 Мая 2002, 17:40:09

Кстати когда закачаешь на сервер, если только он не под Вынь:) всё как рукой снимет и будет работать:
Судя по всему нужно перед принт вставить строчку
binmode stPICTURE;
Показывая Винде что файл двоичный, а то ведь она идёт до ближаёшего ctrl-z (он же символ конца файла, он же код 26 (а может и другой, но вроде этот) а потом плюёт на это дело (вывод файла), для неё файл уже закончился:-))).
Наверное в этом трабл.

Название: Неполный вывод картинки
Отправлено: Dinara от 26 Мая 2002, 17:42:31

Не! :) Трабл был в размере буфера. Я так и подумала - экспериментировала с разными размерами картинок - выводилось разное количество пиксел-строк :)