perl - 如何测试 Perl 中是否存在与模式匹配的文件名？

Question

我可以在 Perl 中做这样的事情吗？文件名上的含义模式匹配并检查它是否存在。

    if(-e "*.file")
    {
      #Do something
    }

我知道要求系统列出存在的文件的更长的解决方案；将其作为文件读取，然后推断文件是否存在。

Answer 1

您可以使用 glob 返回匹配模式的所有文件的数组:

@files = glob("*.file");

foreach (@files) {
    # do something
}

如果你只是想知道是否存在匹配模式的文件，你可以跳过赋值:

if (glob("*.file")) {
    # At least one file matches "*.file"
}