|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : sherl 2:5020/400 12 Jun 2001 14:03:06 To : All Subject : Re: gif -------------------------------------------------------------------------------- Спасибо работает,но я пытался после вывода картинки вывести текст и ничего не выводиться почему ? print "Content-type: text/html\n\n"; print "<h3>qeqwrqr</h3>"; "Max Fedotov" <max@phys.kemsu.ru> wrote in message news:9fs3o9$3aa$1@host.talk.ru... > Hello sherl, > > Friday, June 08, 2001, 10:43:28 PM, you wrote: > > s> почему картинка в браузере не выводиться ? > s> файл читается, и размер выдает точный ($count). > > s> print "Content-type: image/gif\n\n"; > s> open(F,"<1.gif"); > s> $count=0; > s> while(read(F,$_,1)) > s> { > s> binmode F; > s> print $_; > s> $count++; > s> } > s> close(F); > > binmode STDOUT сделай. Да и читать лучше весь файл сразу: > $filesize = (stat("1.gif"))[7]; > open(F,"1.gif") or die; > binmode F; > read(F,$img,$filesize); > close(F); > > -- > Best regards. > Max mailto:max@phys.kemsu.ru > > > > > Отправлено через сервер Talk.Ru - http://www.talk.ru --- ifmail v.2.15dev5 * Origin: Demos online service (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/6577f947ba7c.html, оценка из 5, голосов 10
|