使用Perl glob读取指定目录下*_file.log文件失败求助

你的代码主要有两个问题导致glob无法正确匹配目标文件：

• 通配符被错误转义：代码里的logs\*_file.log用了反斜杠转义星号，在双引号字符串中，\*会被Perl解析成字面量的*，而不是glob需要的通配符，这样glob就找不到符合模式的文件了。
• 目录与通配符间缺少斜杠：logs和*_file.log之间没有添加斜杠，导致glob会去匹配名为logs*_file.log的文件，而非logs目录下的*_file.log文件。

修正后的代码如下：

my $home = "/user/home";

if (glob("${home}/xpath/logs/*_file.log")) {
    print "work\n";
}
else {
    print "something wrong\n";
}

如果想要更稳妥地处理路径拼接，避免手动拼接时出现格式错误，也可以使用Perl自带的File::Spec模块：

use File::Spec;

my $home = "/user/home";
my $pattern = File::Spec->catfile($home, 'xpath', 'logs', '*_file.log');

if (glob($pattern)) {
    print "work\n";
}
else {
    print "something wrong\n";
}

内容的提问来源于stack exchange，提问作者Blurman