Модераторы: korob2001, ginnie
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Содержимое файла из переданного zip-архива 
:(
    Опции темы
Paher
Дата 3.3.2010, 15:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 155
Регистрация: 18.8.2009

Репутация: нет
Всего: нет



Добрый день, уважаемые!!

Получаю через http архив zip.
в этом архиве есть текстовой документ, содержимое которого мне бы хотелось получить в строке.

Используя модуль CGI, как я понял, можно получить дескриптор загруженного архива через 

Код

use CGI

$cgi = new CGI();
$ziparchive = $cgi->param('archive');


Так вот, вопрос в следующем. Как, не создавая промежуточных файлов, получить содержимое файла test.txt в строку $strtxt. Следующий метод не сработал

Код

use Archive::Zip::MemberRead;

$zipreader = Archive::Zip::MemberRead->new($ziparchive, 'test.txt');
$zipreader->read($strtxt);


PM MAIL   Вверх
shamber
Дата 3.3.2010, 15:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1422
Регистрация: 5.9.2006
Где: Россия

Репутация: нет
Всего: 18



читайте справку к модулю

Код

$fh  = new Archive::Zip::MemberRead($zip, "hello.txt");
  while (defined($line = $fh->getline()))
  {
      print $fh->input_line_number . "#: $line\n";
  }

PM MAIL Jabber   Вверх
Paher
Дата 3.3.2010, 16:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 155
Регистрация: 18.8.2009

Репутация: нет
Всего: нет



так я тоже пробовал, в ответ получил ошибки 

Can't call method "memberNamed" without a package or object reference at C:/Perl/lib/Archive/Zip/MemberRead.pm line 83

Undefined subroutine &Archive::Zip::MemberRead

PM MAIL   Вверх
shamber
Дата 3.3.2010, 18:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1422
Регистрация: 5.9.2006
Где: Россия

Репутация: нет
Всего: 18



Paher, у меня прекрасно отработал, посмотрите версию модулей


Это сообщение отредактировал(а) shamber - 3.3.2010, 18:07
PM MAIL Jabber   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl: CGI программирование"
korob2001
sharq
  • В этом разделе обсуждаются вопросы относящиеся только к CGI программированию
  • Если ваш вопрос не относится к системному или CGI программированию, задавайте его в общем разделе
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", качать здесь


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: разработка для Web | Следующая тема »


 




[ Время генерации скрипта: 0.0400 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.