|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Ilya Rubtsov 2:5020/400 08 Aug 2000 13:04:59
To : All
Subject : Re: чтение бинарных файлов (CGI)
--------------------------------------------------------------------------------
On 8 Aug 2000 12:28:14 +0400, "Anatoly Moskovsky" <avm@trais.com.ua>
wrote:
>> Под unix вывод текстового от бинарного ничем не отличается. Просто print
>> в поток и все. Пробовал? под win32 нужно использовать binmode.
>Проблема наблюдается как раз в юниксе
Вот кусок рабочего скрипта, выдающего рандомную картинку из списка:
$file = "h:/apache/htdocs/xext/$list[$random]";
open (FILE, $file);
binmode(FILE);
@image = <FILE>;
$flsize = -s $file;
binmode(STDOUT);
print "Content-type: image/jpeg\n";
print "Content-leight: $flsize\n\n";
for (@image) {
print;
}
close (FILE);
Работает и под виндой(98) и под юнихом(фря какая-то, кажись)
--- ifmail v.2.15dev5
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
