|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Andrey Sapozhnikov 2:5020/400 28 Jan 2002 20:33:36
To : Serge Chervjakov
Subject : Re: Считать нетеккстовый фа йл
--------------------------------------------------------------------------------
Serge Chervjakov wrote:
> Hi All,
> В общем проблема такая:
> есть файл: stop.gif, a.pl
> stop.gif - обычная гифка (картинка) - 3377 байт
> a.pl:
> $kio=1;
> open (DATA,"<stop.gif");
> while($kio){
> $kio=read(DATA,$dim,1024);
> $k=$k.$dim;
> }
> open (DATA,">stop1.gif");
> print DATA $k;
> проблема:
> считывается всего лишь 160 байт. Почему? Как исправить?
> ЗЫ: платформа: wind 98, perl 5.004
perldoc -f binmode
Андрей
--- ifmail v.2.15dev5
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: Считать нетеккстовый фа йл 
