perl - 为什么在尝试使用 Perl 的 Archive::Extract 解压缩时得到的文件名是 ARRAY(0x7fd5c22f7cd8)？

Question

我在 Mac 10.5.7 上使用 Perl 5.12。我有一个 JAR 文件，我希望解压缩它，然后处理一个与文件模式匹配的文件。我无法弄清楚如何迭代解压缩的结果。我有...

### build an Archive::Extract object ###
my $ae = Archive::Extract->new( archive => $dbJar );

### what if something went wrong?
my $ok = $ae->extract or die $ae->error;

### files from the archive ###
my @files   = $ae->files;

for (@files) {
    print "file : $_\n";

但是循环只返回一件事——“ARRAY(0x7fd5c22f7cd8)”。我知道存档中有很多文件，所以我很好奇我在这里做错了什么。- Dave

Answer 1

$ae->files 返回数组reference，而不是数组。试试这个:

my $files = $ae->files;

for(@$files) {
   print "file : $_\n";
}