ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Yuriy Kaminskiy                      2:5020/517.21  23 Jan 2002  17:04:21
 To : Konstantin Tokar
 Subject : Re: Hа: Перл:   длина скаляра $string
 -------------------------------------------------------------------------------- 
 

 
 >>>>> On 14:08 22/1/2002, tokar@apmsun.mpei.ac.ru writes:
  KT> open (F, "<$mp3file") || die "can't open $mp3file\n"; binmode F;
  KT> read F, $infile, -s $mp3file; 
 
  Плохо.
  Потому, что read может прочитать _меньше_, чем заказано (да, в случае
 с дисковыми файлами это, AFAIK, крайне маловероятно; но, AFAIK, все же
 возможно).
 
  KT> close F; print $infile .....
  KT> или читать по 8K в цикле, для экономии памяти...
 
  ... и пущей надежности:
 while(read(F,(my $buffer),65536) {print $buffer}
 -- 
 Yuriy Kaminskiy.
 PS И про binmode STDOUT; забывать не стоит.
 
 Copyright notice:  _ВСЕ_ мысли и слова, пришедшие в голову, при прочтении
 данного письма являются объектом авторского права.  Их нелицензированное
 обдумывание запрещено под угрозой судебного и внесудебного преследования.
 --- Gnus/5.0808 (Gnus v5.8.8) XEmacs/21.1 (Cuyahoga Valley)
  * Origin: none (2:5020/517.21@fidonet)
 
 

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