perl - 如何在目录名称中使用通配符在 Perl 中打开文件？

Question

我需要从基于创建日期命名的目录中打开一个名为 OrthologousGroups.txt 的文件。例如./Results_2016-2-7
有没有办法在我需要访问的文件的路径名中使用通配符？

我尝试了以下

open(FILE, "./Results*/OrthologousGroups.txt");

但我收到一个错误

readline() on closed filehandle

Answer 1

使用 glob 获取匹配 glob 模式的文件名列表:

my @files = glob "./Results*/OrthologousGroups.txt";

if (@files != 1) {
    # decide what to do here if there are no matching files,
    # or multiple matching files
}

open my $fh, $files[0] or die "$! opening $files[0]";

# do stuff with $fh

作为一般注意事项，您应该检查打开是否成功，而不是简单地假设它成功了，那么当您首先没有实际打开文件时，您将不会收到“关闭文件句柄上的readline”错误。