Perl 文件通配奇数

Question

我正在编写一个脚本，该脚本将遍历一系列数字，构建一个 glob 模式，并基于 glob 测试目录中是否存在文件。

这些图像是 Nascar 车牌号图像，并遵循以下模式:

1_EARNHARDTGANASSI_256.TGA
2_PENSKERACING_256.TGA

这是我正在使用的脚本片段:

foreach $currCarNum (0..101) {  
    if (glob("//headshot01/CARS/${currCarNum}_*_256.TGA")) {    
        print("Car image $currCarNum exists\n");
    } else {
        print("Car image $currCarNum doesn't exist\n");
    }   
}

我遇到的问题是，目录中存在且应与文件 glob 模式匹配的图像不匹配。

例如，具有以下名称的文件返回为不存在:

2_PENSKERACING_256.TGA

然而，以下返回为现有:

1_EARNHARDTGANASSI_256.TGA

如果我在 DOS 或 Cygwin 中使用相同的文件 glob 模式，两个文件都会正确列出。

Perl 中的文件 glob 模式是否有不同的解释？有什么我想念的吗？

Answer 1

您需要以列表格式而不是标量格式返回结果。在你的 if 语句中试试这个，当我测试它时它对我有用。

if (my @arr = glob("//headshot01/CARS/${currCarNum}_*_256.TGA")) {