ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Anatoly Moskovsky                    2:5020/400     09 Aug 2000  13:17:57
 To : All
 Subject : Re: чтение бинарных файлов (CGI)
 -------------------------------------------------------------------------------- 
 

 Привет!
 
 "Paul Kulchenko" <paulclinger@yahoo.com> wrote in message
 news:39902867.D4247DC0@yahoo.com...
 
 > Так может неправильно ЧИТАЕТСЯ файл? Или СОЗДАЕТСЯ? При выводе проблем
 > быть не должно
 
 При выводе их и нет.
 
 > ... Код покажи.
 
 Было так - не работало:
 #sub readfile
 #{
 #my ($l,$r);
 #open(f, "<$_[0]") || return 0;
 #seek(f, 0, 2);
 #$l = tell(f);
 #seek(f, 0 ,0);
 #($r = sysread(f, $_[1], $l))|| return 0;
 #close(f);
 #return 1;
 #}
 
 Теперь так - работает:
 sub readfile
 {
 my ($l,$r);
 open(f, "<$_[0]") || return 0;
 $r = "";
 while ($l = <f>)
 {
  $r .= $l;
 }
 close(f);
 $_[1] = $r;
 return 1;
 }
 
 Hо кажется второй вариант не всегда будет работать с бинарниками. В связи с
 этим был вопрос.
 
 Бай
 --- ifmail v.2.15dev5
  * Origin: Demos online service (2:5020/400)
 
 

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