ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Igor Nikolaev                        2:5030/266     08 Aug 2000  19:11:58
 To : Ilya Rubtsov
 Subject : Re: чтение бинарных файлов (CGI)
 -------------------------------------------------------------------------------- 
 

 Ilya Rubtsov <perl@perl.pp.ru> wrote:
 
 > Вот кусок рабочего скрипта, выдающего рандомную картинку из списка:
 > $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) и под юнихом(фря какая-то, кажись)
 
 Жуть.
 Hе делай так.
 Даже если ошибки исправишь ;-)
 
 -- 
 Игорь Hиколаев
 --- ifmail v.2.12.os.sensi
  * Origin: очень leight (2:5030/266@fidonet)
 
 

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