|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Konstantin Tokar 2:5020/400 22 Jan 2002 15:08:44
To : Alexander V. Gaiduk
Subject : Re: Hа: Перл: длина скаляра $string
--------------------------------------------------------------------------------
> у меня скрипт отдающий клиенту mp3 файлы:
>
> open (F, "<$mp3file") || die "can't open $mp3file\n";
> @infile = <F>;
> close (F);
> print "Content-type: audio/mp3\n";
> print "Content-Disposition: attachment; filename=$mp3name\n\n";
> print @infile;
>
> ведь больше года работает и ни одного файла не побил.
>
Почему не так:
open (F, "<$mp3file") || die "can't open $mp3file\n";
binmode F;
read F, $infile, -s $mp3file;
close F;
print $infile .....
или читать по 8K в цикле, для экономии памяти...
--- ifmail v.2.15dev5
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
