Perl: получение дескриптора для stdin для использования в скрипте cgi-bin

Question

Использование perl 5.8.8 на сервере Windows Я пишу скрипт perl cgi с помощью Archive :: Zip для создания на лету zip, который должен быть загружен пользователями : никаких проблем с этой стороны. Zip управляется в памяти, физический файл не записывается на диск с использованием временных файлов или что-то еще. Мне интересно, как разрешить загрузку zip, записывая поток в браузер. То, что я сделал что-то вроде:

binmode (STDOUT); 
$zip->writeToFileHandle(*STDOUT, 0); 

, но я чувствую неуверенность в этом случае, чтобы получить STDOUT в качестве дескриптора файла. Является ли это правильным и надежным? Существует лучший способ?

Большое спасибо за ваши советы

Answer 1

Что вы делаете выглядит прекрасно!

Answer 2

Это хороший шанс продемонстрировать virtue of Impatience.

Программисты любят отбрасывать повторение постоянных литералов и помещать их в контейнеры постоянного типа. (Но я буду просто использовать переменную здесь, чтобы не отвлекать от важной части.)

use IO::File qw(); 
my $handle = bless(\*STDOUT => 'IO::File') 
    or die $OS_ERROR; 
# Why not just `$handle = STDOUT`? Code above is necessary 
# because using bare STDOUT invokes on IO::Handle only 
# which does not have the binmode method. 
⋮ 
$handle->binmode(1); 
$handle->print('something'); 

Это не похоже на победу, потому что гораздо больше кода, чем раньше. Большой выигрыш приходит, как только вы решаете, что вы больше не хотите печатать до STDOUT, но в реальном файле. Или, возможно, вы хотите получить результат. Тогда вам нужно изменить только одну строку кода вместо нескольких.

my $handle = IO::File->new('/var/log/cgi', 'a') 
    or die $OS_ERROR; 
# method calls on $handle stay the same as before