Привет!

Вобщем проблема такая: Есть каталог, в котором примерно 4000 ZIP архивов.
Необходимо открыть этот каталог и пройти по каждому архиву, с этим проблем нет. На каждой итерации цикла, открывать текущий архив и разархивировать его в другой каталог. При этом, файл который содержится в zip'e, должен сохранить своё имя. В каждом архиве, по одному файлу.
Вобщем нужно что бы во втором каталоге получилось около 4000 файлов из zip архивов.

Пробовал читать доки по модулю Archive::Zip, но ничего не понял, правда понял как запихнуть файл в .zip, а вот с обратным процессом проблема.
Может кто сталкивался с такой траблой?

Заранее спасибо.
Денис

самый простой способ

Код

system("unzip blablabla");

кстати, можно ещё выполнить вот такой вызов:

Код

`tar xvfz archive.tar.gz -C /path/to/unzipped/files`;

где вот это: -C /path/to/unzipped/files указывается для того, чтобы раскрыть аржив в директорию, отличную от той, где он лежит...

Спасибо. Но как я понял всё это работает под ...nix'ами, а я под виндой. ;)

Всем спасибо за желание помочь.
Уже разобрался в доках к модулю Archive::Zip. Вобщем, всё великое в простом. Вот рабочий пример разорхивации ZIP архива:

Код

#!/usr/bin/perl use strict; use Archive::Zip; my $zip = Archive::Zip->new("myarchive.zip"); # Создаём объект $zip->extractTree(); # Разархивируем ZIP архив

Во как ;).

Может кому пригодится. Вот написал такой код:

Код

#!/usr/bin/perl -w use strict; use Archive::Zip; my $fromDir = "."; my $toDir = shift || 'ArchiveTemp'; $toDir =~ s/(?:\\|\/)$//; mkdir( $toDir, 0744 ) or die "Can't create directory '$toDir': $!\n"        unless -e $toDir; my $count = 0; opendir( DIR , $fromDir ) or die "Can't open directory '$fromDir/': $!\n";  while ( my $file = readdir DIR ) {          next unless $file =~ /\.zip$/i;          my $zip = Archive::Zip->new( "$fromDir/$file" );          $zip->extractTree();          rename( "$fromDir/$file", "$toDir/$file" );          print "-" x 70, "\n" if $count;          print "File '$fromDir/$file' successfuly extracted.\n";          $count++;  } closedir( DIR ) or die "Can't close directory '$fromDir': $!\n"; print "=" x 70, "\n"; my $lastString = "Total extracted $count file"; $lastString .= "s" if $count != 1; print $lastString, "\n";

Для тех кто не понял, поясню:
Допустим у вас в каком-либо каталоге валяется большое кол-во архивов ZIP ( у меня их оказалось около 4000 ) и вам понадобилось, распаковать их все ( делать это вручную, занятие утомительное ;] ). Сохраняем в каталог с ZIP архивами этот код в файл unzip.pl и просто запускаем его на выполнение ( perl unzip.pl ). После чего будет создан каталог в который будут переноситься все, уже разархивированные ZIP архивы, а в текущем каталоге останутся только извлечённые файлы. Если возникнут вопросы по коду, пишите здесь.

Удачи. ;)

Это сообщение отредактировал(а) korob2001 - 7.11.2004, 01:08

если у вас в архиве есть директории
и вам захочется разархивировать их в другую директорию не в текущую
?

;)

Думаю с помощью Archive::Zip это реально. Просто нужно с документауией разобраться до конца, а у меня с лэнгвичем не очень, да и инет отсутствует , но это всё временные трудности.
Так сложилось, что мне пришлось учить Нидерладский язык, да и то не могу им похвастаться Как-то не прёт меня учить языки, если это не языки программирования. ;)
Английский, знаю только школьную пограмму. Вот так и живу.

Вобщем, я хочу полностью изучить этот модуль, как дойду до этой темы, дам знать.

Но можно ведь воспользоваться возможностями самого Perl, правда прийдётся пожертвовать производительностью.
Вот что я имею ввиду:

1. Вырезаем имя самого ZIP архива, без расширения, и сохраняем его в переменную.
2. В каталоге в который будем разархивировать архив, создаём каталог с именем ZIP архива, которое сохранили в переменную в первом пункте.
3. Копируем текущий архив, в только что созданный каталог.
4. Переходим в него и там его разархивируем.
5. Удаляем ZIP архив из новой директории.

В конечном итоге получаем каталог, с вложенными каталогами, которые имеют аналогичные имена как и ZIP архивы. В каждом, этом каталоге будут размещены, все файлы и каталоги которые были в ZIP архиве.
Но, так как это нужно делать на каждой итерации, производительность понизится.

Electrical Storm - думаю у тебя не возникнет проблем с этой задачей ( потому код писать не стал ). Если знаешь сам, как это сделать с помощью модуля Archive::Zip или более производительней, напиши, буду очень признателен. Хотя в моём случае в архиве всего 1 файл, но вопрос действительно интересный, на будущее. Такая утилтка, под рукой, никогда не помешает. ;)

Сейчас скачаю себе этот модуль и дома пострадаю, может чего и выстадаю. ;)

Удачи.

Это сообщение отредактировал(а) korob2001 - 9.11.2004, 23:29

Цитата

Если знаешь сам, как это сделать с помощью модуля Archive::Zip или более производительней, напиши, буду очень признателен

Конечно знаю поэтому и спросил ;) вдруг пригодиться ....

я не просто так спросил у этого модуля есть один не понятный момент
... он поразному рабоатет на FreeBSD и WinXP вот его я и имел ввиду...

когдато давно я просто столкнулся с этой проблемой ....

Код

# Вот такой вариант работает под  WinXP и не работает по FreeBSD $zip->extractTree('', '', 'tmp'); # вот так помоему будет и там и там работать $zip->extractTree( '', '/tmp');

Я вот вчера тоже пострадал, немного. ;) Тоже нашёл это дело, но оно почемуто не работает. Правда там, в первом параметре пердаётся имя файла из ZIP архива. Один раз вроде сработало, а попробовал пройти по всему дереву с помощью while. Вот туто я и обламался.
Выдаёт ошибку ввода/вывода. Указывает на каталог и пишет Access diened.
Права на каталог установлены "Только чтение" и что самое главное я не могу их изменить даже в самой системе. У винды бывают такие глюки. :[

Вот такие пироги. Ладно, повожусь еще ночьку. Завтра дам знать, что получилось.

Извините, я новичек, но почему нельзя было и имена файлов найти и сохранить в массив через

Код

@files=<*.zip>;

Цитата

... он поразному рабоатет на FreeBSD и WinXP вот его я и имел ввиду...

use File::Spec; «и будет вам счастье»

Цитата

но почему нельзя было и имена файлов найти и сохранить в массив через

вероятно потому, что

Цитата

Есть каталог, в котором примерно 4000 ZIP архивов

Цитата

вероятно потому, что Есть каталог, в котором примерно 4000 ZIP архивов

Абсолютно верно, просто glob не вернёт имена всех файлов текущего каталога, если файлов много. Можно было конечно же заюзать системную коммаду, но в таком случае мы привязываем сами сабя к определённой оболочке. В данном случае самым лучший вариант это opendir, readdir, closedir.

Цитата

мы привязываем сами сабя к определённой оболочке

если речь идет о

Код

@zips=grep (/\.zip/i,readdir DIR);

то это работает везде т.к. grep - встроенная функция.
а вот про glob - спорно.
при вызове glob автоматоически подгружается модуль File::Glob... Начиная с версии Perl 5.6, до этой версии использовался внешний процесс (csh).
т.о. use File::Glob ':glob'; #используем glob из POSIX, а не csh...

А я имел ввиду, цитируя, лишь количество файлов: массив получается довольно ёмкий, как ни крути, и держать его в памяти ни есть хорошим стилем программирования. Кстати, относительно отличий исполнения под win* и *nix: одно из них заключено в том, что под win* стоило бы присваивать значения undef объёмным массивам и хэшам в конце программы, дабы явно освободить память. imho.

Ты считаешь, что под виндой память не освобождается после того, как программа завершает свою работу????
Насколько я знаю, то undef( @arr ), применяется в том случае, если программа продолжает работу, а массив @arr больше не нужен и нужно вернуть в текущий момет всю занимаемую им память в пул пямяти процесса, но далеко не все системы поддерживают это.

Цитата

то это работает везде т.к. grep - встроенная функция. а вот про glob - спорно.

Нет, речь идёт о таком способе:

Код

#!/usr/bin/perl -w use strict; my @arr = glob("*.zip"); print join("\n", @arr);

или

Код

#!/usr/bin/perl -w use strict; my @arr = <*.zip>; print join("\n", @arr);

Но и с grep мы грузим память, потому как grep вернёт список файлов.

Это сообщение отредактировал(а) korob2001 - 10.3.2005, 19:50

Пародон за оффтоп: в винде, если есть WinRAR, выделяются все архивы, потом правый клик, пункт: распаковать ВСЕ аривы в ... =)

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

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

Цитата

$zip->extractTree();

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

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

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