Привет!

Вобщем проблема такая: Есть каталог, в котором примерно 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, выделяются все архивы, потом правый клик, пункт: распаковать ВСЕ аривы в ... =)