如何匹配perl glob中的数字

Question

$dir_path = (-d ("./abc/dir-\d.\d.\d")) ?
            glob("./abc/dir-\d.\d.\d/my-dir*") : "my-dir-doesnot-exists";

这是一个有效的全局选项吗？我可以使用 \d 来匹配目录路径中的数字吗？

$dir_path 应该得到 "./abc/dir-#.#.#/my-dir/some_dir_name" 如果 "./abc/dir-#.#.#" 存在（其中 # 是任何数字） else "我的目录不存在”字符串

Answer 1

您在标量上下文中调用glob 的两个实例（但不是作为迭代器），这是非常错误的。例如，

 my $foo = glob("a");
 my $bar = glob("a");
 say $foo // "[undef]";    # a
 say $bar // "[undef]";    # [undef]

glob 语言与正则表达式语言完全不同。 \d 不起作用，但 [0123456789] 会。

my @dir_paths = glob("./abc/dir-[0123456789].[0123456789].[0123456789]/my-dir*");

die "No match!"         if !@dir_paths;
die "Too many matches!" if @dir_paths > 1;

my $dir_path = $dir_paths[0];