|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Serge Chervjakov 2:5020/400 28 Jan 2002 19:48:29
To : All
Subject : Считать нетеккстовый файл
--------------------------------------------------------------------------------
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
--- ifmail v.2.15dev5
* Origin: FidoNet Online - http://www.fido-online.com (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
