perl - 为什么 Perl 的 quotemeta() 函数在调试器下表现不同？

Question

我被这种不一致的调试器行为所困扰。 quotemeta()在 perl -d 下调用时，函数的行为似乎有所不同
$ perl -e 'print quotemeta("/a/b/c"),"\n"'
输出为 \/a\/b\/c ，这是正确的，如 perldoc -f quotemeta 中所述.

现在，在调试器下，输出变为 \\/a\\/b\\/c .我认为我正在使用的一些核心模块正在重新定义函数，尽管经过测试，似乎只有在调试器下才会出现这种行为。调用CORE::quotemeta()返回相同的输出。

有人可以启发我吗？

谢谢!

Answer 1

quotemeta是一把霰弹枪，无论是否需要，都可以转义所有非单词字符。调试器不那么笨拙；仅引用那些需要它的字符。 (反斜杠可以，正斜杠不可以。)更重要的是，它仅在您检查值时才这样做，而不是在打印它们时。比较:

  DB<1> x quotemeta('a/b/c')
0  'a\\/b\\/c'

  DB<2> p quotemeta('a/b/c')
a\/b\/c