Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: разработка для Web > Загрузка и раззиповка файла одновременно

Автор: Paher 26.7.2010, 16:34

Уважаемые господа, поделитесь опытом, пожалуйста!

Есть участок кода

Код


    my $cgi=new CGI;
    my $file=$cgi->param("file");
    if ($file){ 
        my $arch = $cgi->upload("file");
        my $zip = Archive::Zip->new();
        die 'read error' unless $zip->readFromFileHandle($arch) == AZ_OK;
        print $zip->contents("member.txt");
    }

Т.е. клиент посылает архив, а скрипт, не сохраняя его, выводит только содержимое одного элемента этого архива. Так все должно быть в идеале. В реальности же
появляется ошибка Undefined subroutine Fh::opened at C:/Perl/lib/Archive/Zip.pm line 955.

В документации сказано, что readFromFileHandle не может работать с потоками. не из-за этого ли ошибка? И если да, может кто-нибудь подсказать пути обхода? Не хочется сохранять полностью архив и затем опять с ним работать