使用通配符文件名解压缩perl中的文件

Question

我使用Archive :: Zip模块提取特定文件。

my $file = shift
my $zip = Archive::Zip->('zipped.zip');
$zip->extractMember($file.'txt');

问题是有时候完整的文件名是未知的，我想做这样的事情：

$zip->extractMember($file.*.'txt');

我在网上搜索过，找不到这个模块（或任何类似模块）的任何内容。是否有允许在文件提取中进行通配符的模块？

Answer 1

您似乎可以使用documented membersMatching($regex)方法：

my @files = $zip->membersMatching(qr/$file.*\.txt/);
$zip->extractMember($_) for @files;