|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Artem Chuprina 2:5020/400 21 Jan 2002 13:39:48
To : "Alexander V. Gaiduk"
Subject : Re: Hа: Перл: длина скаляра $string
--------------------------------------------------------------------------------
Здравствуй, Alexander V. Gaiduk.
AVG> > Он даже не открывается
AVG> > if (-T $FILE) {
AVG> > open(FILE,"$FILE") || die $!;
AVG> > @LINES = <FILE>;
AVG> > close(FILE);
AVG> > }
AVG> >
AVG> > Т.е. не проходит даже if. Усли проверку убрать,
AVG> > то затем вылетает на ошибку. В файле строка из 90 Ж
AVG> не, твоя система какую то пургу гонит.
AVG> у меня скрипт отдающий клиенту mp3 файлы:
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> апач на линухе.
Вот, кстати, под виндой так делать не стоит... Без binmode(F).
--
Artem Chuprina
Communiware.net
RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/358.49, ICQ: 13038757
Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
--- ifmail v.2.15dev5
* Origin: Talk.Mail.Ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
