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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Zip 
V
    Опции темы
vitaly1979
Дата 30.6.2006, 21:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Подскажите как заархивировать файл в папке my, 
а точнее в любой другой директории, архив должен лежать в той же папке.
У меня получается что внутри архива папка my и в ней архив
Код

use Archive::Zip qw(:ERROR_CODES :CONSTANTS);

$zip=Archive::Zip->new();

$nfm=$zip->addFile("my/sss.txt");

if($nfm){print "addFile - $nf\n";}

$zr=$zip->writeToFileNamed("my/my_perl.zip");

if($zr==AZ_OK){print "writeToFileNamed - AZ_OK\n";}


и еще, как можно в памяти сжать данные из буфера и записать сразу в зип?

 
PM MAIL   Вверх
kostofffan
Дата 3.7.2006, 10:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



По поводу папки в архиве, попробуй сделать chdir('my').
А на счёт архивация из буфера - там есть какая-то функция в модуле, через которую можно писать непосредственно в архив из проги, а степень сжатия задаётся тоже функцией из модуля. Я такое делал, только не помню названий функций и нет доступа к мануалу.

Добавлено @ 11:04 
... папка создаётся из-за writeToFileNamed("my/my.zip").
Нужно просто writeToFileNamed("my.zip").
Но это по-моему ))) 
PM MAIL   Вверх
vitaly1979
Дата 4.7.2006, 05:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



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


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

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


 




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


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

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