VPF::Как разархивировать ZIP архив? - Форум программистов

korob2001

Дата 13.4.2005, 06:58 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

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

Эх Ramirez smile

, дело не в WinRAR'e. Хотелось самому распаковать. Иногда и велосипеды полезно изобретать. smile

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

Guest123

Дата 23.6.2005, 20:13 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

А может Вы подскажете как вывести имена файлов (и их размер) ZIP архива не ражимая его? т.е. на лету прочесть??
perldoc Archive::ZIP читал - так ничего и не получилось внятного smile

можь подскажите че??

Guest

Дата 13.10.2005, 22:00 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Цитата

$zip->extractTree();

Не катит. Т.е. вообще такого нет в мануале к zip!

Разархивирю так:
$zip=Archive::Zip->new("file.zip");
$zip->extractMember("unzip.dat","unzip_new.dat");

korob2001

Дата 14.10.2005, 01:30 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

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

Guest - Как так нет? Вот тебе часть документации, где описывается метод extractTree().
perldoc Archive::Zip

Цитата

$zip->extractTree()
$zip->extractTree( $root )
$zip->extractTree( $root, $dest )
$zip->extractTree( $root, $dest, $volume )
If you don't give any arguments at all, will extract all the files
in the zip with their original names.

If you supply one argument for $root, "extractTree" will extract all
the members whose names start with $root into the current directory,
stripping off $root first. $root is in Zip (Unix) format. For
instance,

$zip->extractTree( 'a' );

when applied to a zip containing the files: a/x a/b/c ax/d/e d/e
will extract:

a/x as ./x

a/b/c as ./b/c

If you give two arguments, "extractTree" extracts all the members
whose names start with $root. It will translate $root into $dest to
construct the destination file name. $root and $dest are in Zip
(Unix) format. For instance,

$zip->extractTree( 'a', 'd/e' );

when applied to a zip containing the files: a/x a/b/c ax/d/e d/e
will extract:

a/x to d/e/x

a/b/c to d/e/b/c and ignore ax/d/e and d/e

If you give three arguments, "extractTree" extracts all the members
whose names start with $root. It will translate $root into $dest to
construct the destination file name, and then it will convert to
local file system format, using $volume as the name of the
destination volume.

$root and $dest are in Zip (Unix) format.

$volume is in local file system format.

For instance, under Windows,

$zip->extractTree( 'a', 'd/e', 'f:' );

when applied to a zip containing the files: a/x a/b/c ax/d/e d/e
will extract:

a/x to f:d/e/x

a/b/c to f:d/e/b/c and ignore ax/d/e and d/e

If you want absolute paths (the prior example used paths relative to
the current directory on the destination volume, you can specify
these in $dest:

$zip->extractTree( 'a', '/d/e', 'f:' );

when applied to a zip containing the files: a/x a/b/c ax/d/e d/e
will extract:

a/x to f:\d\e\x

a/b/c to f:\d\e\b\c and ignore ax/d/e and d/e

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

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