如何测试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"
}