perl - 如果文件存在并带有通配符？

Question

我需要验证文件是否存在，但文件名发生了变化。至少文件名的最后一部分是由于附加时间(hh-mm-ss)而导致的。

所以基本上，我需要查看文件 yyyy-MM-dd-hh-mm-ss 是否存在，无论 hh-mm-ss 是什么。 我正在尝试进行通配符搜索，但找不到该文件。 例如，我想检查文件 /home/httpd/doc/$user/$year/2018-08-20-* 是否存在。

是否可以使用 * 作为文件名变量？或者其他更好的方法？

我正在尝试检查文件是否存在，但使用通配符。这是我的代码:

opendir(DIR, "/home/httpd/doc/$user/2018") || die "Unable to open log/location";
while(<>){
    if($_ =~ /\/2018-08-20-\d+-\d+-\d+/) {
        print "file exists\n";
      }
 }

Answer 1

看起来您正在尝试使用 opendir-readdir 模式，它看起来像

opendir(DIR, "/home/httpd/doc/$user/2018") || die "Unable to open log/location";
foreach my $file (readdir DIR) {
    if ($file =~ /\/2018-08-20-\d+-\d+-\d+/) {
        print "file exists\n";
    }
}
closedir DIR;

但更简洁的方法(有更多边缘情况，但可能适合您的情况)是使用 glob

if (glob("/home/httpd/doc/$user/2018/2018-08-20-*")) {
    print "file exists\n";
}