Perl：system() 调用中 shell 符号的解释发生变化？

改变的不是 Perl，而是系统上的默认 shell。Perl 的system()调用使用/bin/sh. 在最近的 Debian 和 Debian 衍生系统中，这是dash一个基本 POSIX shell 的符号链接。在较旧的系统和许多非 Debian 系统中，它是bash.

事实上，两个 shell 的行为有所不同[^.]：

$ dash -c 'ls -R /etc/skel/.[^.]*' 2>/dev/null | wc
   2875    2572   45543
$ bash -c 'ls -R /etc/skel/.[^.]*' 2>/dev/null | wc
      5       5     103

您还可以通过执行以下操作轻松测试：

$ cd /bin
$ sudo rm sh
$ sudo ln -s bash sh

然后再次运行 Perl 脚本。您会看到它的行为符合您的预期。只需记住返回并撤消更改即可：

$ cd /bin
$ sudo rm sh
$ sudo ln -s dash sh

perl的函数文档system()可以通过 找到perldoc -f system。使用 perl 5.34，我发现：

system LIST
system PROGRAM LIST
与 执行完全相同的操作exec，只不过首先执行 fork，并且父进程等待子进程退出。请注意，参数处理因参数数量而异。如果 LIST 中有多个参数，或者 LIST 是一个具有多个值的数组，则启动由列表的第一个元素给出的程序，参数由列表的其余部分给出。如果只有一个标量参数，则检查该参数是否有 shell 元字符，如果有，则将整个参数传递到系统的命令 shell 进行解析（在 Unix 平台上为“/bin/sh -c”，但其他平台有所不同）。如果参数中没有 shell 元字符，则将其拆分为单词并直接传递给“execvp”，这样效率更高。

在这里，对于system("ls -R /etc/skel/.[^.]*")，您会遇到以下情况：

• 一个参数被传递
• 该参数包含 shell 元字符，即[和*1 （^是 Bourne shell 中的一个元字符，作为|与 Thompson shell 向后兼容的别名，但它不再在现代 POSIX 中sh）。

所以这实际上就像你写的：

system({"/bin/sh"} "sh", "-c", "ls -R /etc/skel/.[^.]*");

它要求在子进程中sh解释该ls -R /etc/skel/.[^.]*shell 代码并等待其终止。

除非ls -R /etc/skel/.[^.]*不是有效的 POSIXsh代码。

如果您查看Pathname Expansion规范，该规范又指POSIX 规范 2018 版中用于文件名扩展的 Patterns，特别是有关Patterns Matching a Single Character的部分，您会发现：

[
如果开括号引入括号表达式，如 XBD RE 括号表达式中所示，但<exclamation-mark> 字符 ( '!' ) 应替换 <circumflex> 字符 ( '^' ) 在非匹配列表中的作用在正则表达式表示法中，应引入模式括号表达式。以不带引号的 <circumflex> 字符开头的方括号表达式会产生未指定的结果。否则，“[”应匹配字符本身。

换句话说，要否定您使用[!x], not 的集合[^x]，并且[^x]未指定做什么，它可以匹配相同的[!x]或任一^或x（就像您的sh）或任何 POSIX 涉及的内容。

因此，如果你的行为发生了变化，很可能是因为你sh从在这方面的一种行为方式转变为另一种行为方式。

对于dash（Debian 上使用的 shell，源自 NetBSDsh本身，源自 Almquist shell）的情况，有许多影响或可能影响行为的更改。

• [扩展]添加了configure --enable-glob和--enable-fnmatch选项（2007），这增加了编译的可能性，dash因此它使用libcfnmatch()并glob()执行globbing而不是在内部执行（dash的内部glob无法识别）^）。
• shell：默认启用 fnmatch/glob（2020 年 5 月）：这已成为默认设置（并且可能支持也可能不支持^作为 的别名!，glibc 则支持）。
• shell：再次禁用 glob，因为它会删除尾部斜杠（2020 年 11 月）
• 扩展：在此错误报告之后使用 fnmatch (2022)时始终引用插入符号。适用fnmatch()于语句中使用的，但默认情况下仍禁用 的case使用。glob()

该修复与您的问题并不真正相关，但请注意，它反过来又引入了更多错误，例如：

$ string='\' pattern='[\^x]' dash -c 'case $string in ($pattern) echo match; esac'
match

因此，当 dash 链接到 GNU libc 时，2020 年 5 月到 11 月之间有一个很短的窗口，该窗口^将被识别为别名，!而您的 0.5.11+git20200708+dd9ef66-5 恰好落在其中。

^(从 regexp) 更改为!in glob 的原因是历史性的。如上所示^（最初该字符是 ASCII 中的向上箭头，而不是插入符号）是 Thompson shell 和 Bourne shell 中的管道运算echo [^x]符，因此与echo [ | x]现代sh.

该^别名 to|在 Korn shell 中被删除，并且 POSIX 禁止^将其视为管道，但 Korn shell 没有改[!x]回 to[^x]来尝试保持向后兼容性。一些其他 shell，例如 bash 或 zsh（或者像 csh 这样从来没有 Bourne 传统包袱的 shell），因此 POSIX 未指定它。

所以，你的代码应该是：

ls -R /etc/skel/.[!.]*

是有效的sh语法。现在该代码还有更多问题：

• .我想目的是列出除和之外的隐藏文件和目录（及其内容）..（某些 shell 仍然在其全局中返回，尽管这几乎是不可取的），但请注意，它会丢失..foo例如命名的文件。
• 如果没有匹配的文件，您将收到错误消息，指出调用的文件/etc/skel/.[^.]*不存在。

perl是一种比 更强大的语言sh，而且它也更可移植，因为只有一个实现，因此您不必要求sh在 中查找隐藏文件/etc以传递给ls，而是可以在 中执行此操作perl：

@hidden_files = grep {!m{/\.\.?\z}} </etc/skel/.*>;
if (@hidden_files) {
  system "ls", "-R", @hidden_files;
}

^{严格来说，空格也是 中的一个元字符sh，但在 perl 描述中并不这么认为；如果除了空格之外没有元字符，perl 会自行对空格进行分割，而不是调用sh.}

没有什么。这些符号由您的 shell 解释，而不是由 Perl 解释。

所做system()的是以/bin/sh -c整个命令字符串作为参数生成。shell 解释该字符串内的所有其他内容 - 这就是它被称为shell命令的原因。

与正则表达式 (regex) 不同，[^abc]它实际上并不是 shell 通配符 (glob) 中的标准语法元素，并且按照[!abc]正确的方式编写它。碰巧某些 shell（例如 Bash）接受这两种形式 - 但 /bin/sh 不保证是 Bash 或支持任何特定于 Bash 的扩展；它只需要在 shell 中支持 POSIX 的要求。

因此，在 Debian 上，/bin/sh 现在更有可能链接到 dash，这是一个更简单的 shell（针对性能进行了优化），尽管旧安装可能仍然将其链接到 Bash，因为它在许多版本之前是默认设置。区别之一是破折号不支持替代^符号，仅支持!。

（我还依稀记得上个月的一些事情，甚至 Bash 5.2 在调用“POSIX shell”模式时也有同样的行为？我现在不记得了。）

如果我可以补充一点，这确实不是通过 Perl 列出文件的好方法。它已经有自己的glob()功能了！如果您希望它是递归的，请使用标准File::Find模块（或创建递归 Perl 函数）。即使使用 system()，find也会避免这个问题，因为它不需要排除..。