Ich schreibe ein Skript, das eine Reihe von Zahlen durchläuft, ein Globmuster erstellt und überprüft, ob eine Datei in einem Verzeichnis basierend auf dem Globmuster vorhanden ist.
Die Bilder sind Nascar-Autonummernbilder und folgen dem folgenden Muster:
1_EARNHARDTGANASSI_256.TGA
2_PENSKERACING_256.TGA
Hier ist ein Auszug aus dem Skript, das ich verwende:
foreach $currCarNum (0..101) {
if (glob("//headshot01/CARS/${currCarNum}_*_256.TGA")) {
print("Autobild $currCarNum existiert\n");
} else {
print("Autobild $currCarNum existiert nicht\n");
}
}
Das Problem, das ich habe, ist, dass Bilder, die im Verzeichnis existieren und dem Dateiglobmuster entsprechen sollten, dies nicht tun.
Zum Beispiel wird die Datei mit folgendem Namen als nicht vorhanden angezeigt:
2_PENSKERACING_256.TGA
Wohingegen die folgende als vorhanden angezeigt wird:
1_EARNHARDTGANASSI_256.TGA
Wenn ich das gleiche Dateiglobmuster in DOS oder Cygwin verwende, werden beide Dateien ordnungsgemäß aufgelistet.
Werden Dateiglobmuster in Perl anders interpretiert? Gibt es etwas, das mir entgeht?