Glob 模式适用于 shell 命令，但不适用于 Perl 反引号

Question

我在 3 个不同的目录中有 3 个文件，我只需要打印来自 DIR 1 和 2 的文件

1 /tmp/CDE/fileA.log
2 /tmp/CFGH/fileB.log
3 /tmp/CILM_NO/fileC.log 

如果我从 bash /bin/ls /tmp/C{[AZ][AZ],[AZ][AZ][AZ]}/*.log它，我得到：

/tmp/CDE/fileA.log  /tmp/CFGH/fileB.log

如果我从脚本 perl 运行 ls bash 命令：

$cmd=`/bin/ls /tmp/C{[A-Z][A-Z],[A-Z][A-Z][A-Z]}/*.log`;
chomp($cmd);
print "$cmd\n";

我收到：

/bin/ls: cannot access /tmp/C{[A-Z][A-Z],[A-Z][A-Z][A-Z]}/*.log: No such file or directory

看起来我需要转义\{ or \, or \}但得到相同的 output 并且它不起作用我也尝试使用引号而不是 escaping 但仍然得到同样的错误 Z78E6221F6393D13566871DB398F14CE6 不是权限问题

搞不定啊

Answer 1

（不是答案，是解释）

在您的 shell

ls /tmp/C{[A-Z][A-Z],[A-Z][A-Z][A-Z]}/*.log

那使用 bash Brace Expansion 。 Bash 将其扩展为

ls /tmp/C[A-Z][A-Z]/*.log /tmp/C[A-Z][A-Z][A-Z]/*.log

然后做文件名扩展

在 perl

$cmd=`/bin/ls /tmp/C{[A-Z][A-Z],[A-Z][A-Z][A-Z]}/*.log`;

反引号将调用/bin/sh而不是bash ，因此不会发生大括号扩展