使用 Perl 从 zip 中获取目录结构 [关闭]

Question

如何使用Archive::Zip 获取带有 perl 的 zip 文件的目录结构？ 我尝试了不同的方法组合，但没有成功。

Answer 1

你读过documentation吗？

$!/usr/bin/perl
use strict;
use warnings;
use feature 'say';

use Archive::Zip;

my $z = Archive::Zip::->new;
$z->read(shift);
say for $z->memberNames;

Answer 2

我没有安装 Archive::Zip，而且距离我上次使用它已经很久很久了。

你熟悉面向对象的 Perl 吗？你没有具体说明你之前做了什么。我知道许多不熟悉面向对象 Perl 的人（不幸的是，绝大多数使用 Perl 的人）发现 Perl 的面向对象语法令人困惑。

要使用Archive::Zip，您需要创建一个Archive::Zip 对象，该对象将包含您尝试通过new 构造函数读取的档案的所有信息。

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

# Always check to see if the object was created!
if ( not defined $zip ) {
    die qq(Could not open "$archive_to_read");
}

这将打开您的$archive_to_read Zip 文件作为类对象$zip。

现在，您可以使用members or memberNames 方法获取存档的所有成员。 members 将返回 members 的列表，但这些是成员 objects 而不仅仅是成员的名称。 memberNames 方法将返回成员名称列表。我不知道这是否包括目录。同样，您没有具体说明您尝试了什么，所以我不知道您是否尝试过这个并且没有得到您想要的。

#Returns a list of member objects
my @member_list = $zip->members;

#May do what you want. I don't know if dir names are included.
my @member_names = $zip->memberNames;

如果memberNames 不这样做，您可以获取您的成员对象列表并使用Member Operations 从每个成员对象中提取信息：

for my $member ( @member_list ) {
    my $file_name = $member->FileName;
    print qq(File "$file_name" is in "$archive_to_read"\n);
}

再说一次，我已经很久没有使用Archive::Zip了，所以我不能保证这是否 100% 准确。如果您提供了更多关于您遇到问题的原因的信息，那会更容易。您了解使用Archive::Zip 的基础知识吗？您是否使用了特定的方法，却没有得到您想要的信息？

我强烈推荐的一件事是，如果您不了解面向对象的 Perl，请学习它。 Perl 包含一个tutorial on Object Oriented Perl syntax 以及它是如何工作的。这是现在大多数现代 Perl 模块在 Perl 中工作的方式。

如果您确实了解面向对象的 Perl 语法，请记住 Data::Dumper 是您的朋友。它将帮助您了解您正在阅读的数据以及您正在查看的内容。您应该永远不要使用此信息来直接操作对象，但它会让您了解对象中存储的内容以及其中可能隐藏的其他对象类型.

再一次：Stackoverflow 上的人们想提供帮助，但不是读心术的人。我们需要确切地知道您遇到了什么问题。您甚至尝试过使用Archive::Zip 吗？您了解面向对象 perl 语法的基本工作方式吗？如果不了解，这是否让您感到困惑？您是否尝试过members 方法并因为它没有产生您想要的结果而感到沮丧？我们知道的越多，我们能提供的帮助就越多。

您说您尝试使用Archive::Zip，但没有向我们展示您尝试了什么。下次，让我们知道您的代码是什么样的以及您遇到了什么问题。

Answer 3

my @dirs = grep $_->isDirectory, $zip->members;

Answer 4

有一个名为memberNames 的方法返回 所有 zip 存档的成员。提取所有目录成员很简单，因为它们以斜杠结尾。

这个程序演示

use strict;
use warnings;

use Archive::Zip;

my $file = 'myfile.zip';

my $z = Archive::Zip->new($file);
my @zipdirs = grep m|/$|, $z->memberNames;
print "$_\n" for @zipdirs;

---

正如思南所说，检查每个存档成员上的isDirectory 可能更正确。这可能会产生与上述相同的结果。

my @zipdirs = map $_->fileName, grep $_->isDirectory, $zip->members;