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

我可以在Perl中这样做吗？含义模式匹配文件名,并检查是否存在.

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

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

解决方法

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

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

foreach (@files) {
    # do something
}

如果您只想知道是否存在与该模式匹配的文件,则可以跳过该作业：

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