ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Makhamet Khapatchev                  2:5020/400     09 Jun 2001  03:19:46
 To : All
 Subject : Re: gif
 -------------------------------------------------------------------------------- 
 

 my $file="Your picture";
 my $size=-s $file;
 print "Content-Length: $size\n";
 print "Content-type: text/html\n\n";
 
 open(F1,$file);
 binmode F1;
 read F1,$pic,$size;
 close F1;
 
 binmode STDOUT ;
 print $pic;
 
 That's all
 sherl <sherl@avm.ru> пишет в сообщении:9fqrq7$fog$1@ddt.demos.su...
 
 > почему картинка в браузере не выводиться ?
 > файл читается, и размер выдает точный ($count).
 >
 > print "Content-type: image/gif\n\n";
 >  open(F,"<1.gif");
 >  $count=0;
 >  while(read(F,$_,1))
 >  {
 >  binmode F;
 >  print $_;
 >  $count++;
 >  }
 >  close(F);
 >
 >
 >
 >
 >
 >
 --- ifmail v.2.15dev5
  * Origin: MTU-Intel ISP (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