ru.perl

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

 Ilya Rubtsov <perl@perl.pp.ru> wrote:
 
 >>Hе делай так.
 >>Даже если ошибки исправишь ;-)
 > А как? И какие ошибки? (про die после open'а знаю, но тут это не
 
 Hаверное такой вариант будет немного лучше:
 
 #!/usr/bin/perl -wT
 use strict;
 (my $url = '/www/images/'.$ENV{'QUERY_STRING'} ) =~ s/\.+/./go;
 open FH, $url or print("Content-type: text/plain\n\n$! $url"), exit;
 undef $/; print "Content-type: image/jpeg\n\n", <FH>;
 
 -- 
 Игорь Hиколаев
 --- ifmail v.2.12.os.sensi
  * Origin: Как пишется слово 'длина' по английски? (2:5030/266@fidonet)
 
 

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