Как я могу извлечь один файл из ZIP-архива, используя Perl Archive :: Zip? - PullRequest
5 голосов
/ 28 сентября 2010

У меня есть zip-файл X, и я хотел бы извлечь один файл, расположенный в x / x / x / file.txt . Как мне сделать это, используя Archive::Zip и Perl?

Ответы [ 2 ]

9 голосов
/ 28 сентября 2010

Вы можете использовать метод extractMember:

extractMember ($ memberOrName [, $ extractName])

Извлеките данного члена или сопоставьте его имя и извлеките его. Возвращает undef, если элемент не существует в этом Zip. Если указан необязательный второй аргумент arg, используйте его в качестве имени извлеченного члена. В противном случае внутреннее имя файла члена используется в качестве имени извлеченного файла или каталога. Если вы передаете $ extractName, он должен быть в формате локальной файловой системы. Все необходимые каталоги будут созданы. Возвращает AZ_OK в случае успеха.

4 голосов
/ 28 сентября 2010

См. Архив :: Zip :: FAQ , "извлечь файл (ы) из Zip". Текущая версия файла примера находится на сайте http://cpansearch.perl.org/src/ADAMK/Archive-Zip-1.30/examples/extract.pl.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...