ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Max Fedotov                          2:5020/400     09 Jun 2001  07:06:02
 To : sherl
 Subject : Re: gif
 -------------------------------------------------------------------------------- 
 

 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: Talk.Ru (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    gif   sherl   08 Jun 2001 19:43:28   Re: gif   Makhamet Khapatchev   09 Jun 2001 03:19:46   Re: gif   Max Fedotov   09 Jun 2001 07:06:02   Re: gif   sherl   12 Jun 2001 14:03:06   Re[2]: gif   Max Fedotov   13 Jun 2001 09:34:26