|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : pavel kurnosoff 2:5030/661.25 01 Jul 2001 01:47:25
To : Alexei Ptschelnikow
Subject : вывести изображение
--------------------------------------------------------------------------------
30 Jun 01 16:09, you wrote to all:
AP> Hужно осуществить сабж.
AP> Пишу такой скрипт:
AP> #!/usr/bin/perl
AP> open (IMG, "test.gif");
AP> binmode IMG;
local $/;
AP> @img= <IMG>;
$img=<IMG>;
AP> close (IMG);
AP> print "Content-type: image/gif\n\n";
AP> print @img;
print $img;
AP> Hу, и обращаюсь к нему: <img src="http://some.host/cgi-bin/test.pl">
AP> В реультате получаю только часть изображения... Если ещё @img
AP> записать
AP> в файл, то он будет на несколько байт больше, чем исходный.
AP> В чём грабли?
pavel
--- GoldED+/W32 1.1.4.7
* Origin: there's no tomorrow (2:5030/661.25)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
