ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Sergey Pratch                        2:5020/400     20 Aug 2000  14:18:59
 To : All
 Subject : Help me: print gif-file.
 -------------------------------------------------------------------------------- 
 

 Hi All!
 Мужики, простите чайника за бестолковость но просьба просветить, есть кусок
 кода:
   print "Content-Type: image/gif\n";
   print "Content-Length: ".length($GifData[0])."\n\n";
   print $GifData[0];
 
 length($GifData[0]) выводит 319, но в поток записываются почему-то 320 байт.
 Hо самое интересное в том, что лишний байт дописывается в позиции \xFF и его
 значение \x0D - "возврат каретки/CR". Ощущение, что перл закрывает выходной
 буфер, естественно весь GIF коробит. Hо самое интересное в том, что код
 типа:
 
 print "\x00"x319;
 
 или
 
 print "0"x319;
 
 четко выводят 319 байт. Где собака то могла порытся? Пробовал syswrite -
 эффект тот же.
 И еще, у кого есть более-менее четкое описание формата gif-файла.
 --
 С уважением,
 Сергей Прач.
 
 --------------------------------------------
 Please send me your private mail message to s_pratch@mail.ru
 --- ifmail v.2.15dev5
  * Origin: Solver Ltd. site #2 (2:5020/400)
 
 

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