|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexander V. Gaiduk 2:5020/400 22 Jan 2002 12:38:10
To : Artem Chuprina
Subject : Hа: Hа: Hа: Перл: длина скаляра $string
--------------------------------------------------------------------------------
> >> AVG> open (F, "<$mp3file") || die "can't open $mp3file\n";
> >> AVG> @infile = <F>;
> >> AVG> close (F);
> >> AVG> print "Content-type: audio/mp3\n";
> >> AVG> print "Content-Disposition: attachment;
filename=$mp3name\n\n";
> >> AVG> print @infile;
> AVG> >
> >> AVG> ведь больше года работает и ни одного файла не побил.
> AVG> >
> >> AVG> зы.
> >> AVG> апач на линухе.
> AVG> >
> AVG> > Вот, кстати, под виндой так делать не стоит... Без binmode(F).
>
> AVG> я в курсе, поэтому и оговорился, что на линухе.
>
> Саш, так автор вопроса-то на винде...
я это понял.
дело в том, что мне приходится создавать/отлаживать почти все мои скрипты
дома на Win2000 + IIS5 + ActivePerl, и там я, естественно, в таких случаях
использую binmode(F). а на работе, где эти скрипты сдаются в "промышленную
эксплуатацию" на линух, я эти вещи местами подчищаю.
кстати, для этого кода под windows
open (F, "<$mp3file") || die "can't open $mp3file\n";
@infile = <F>;
close (F);
binmode не нужен.
в переменной @infile будет все равно _точная_ копия файла, а вот при
выводе его print'ом данные начинают биться, от чего и спасает binmode.
и бьются они совсем не так, как описал автор вопроса Andrey Titov,
т.е. собака порылась не тут.
=GAV
--- ifmail v.2.15dev5
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
