String perl字符串转义

我希望在Perl字符串中转义引号和空格等特殊字符

---

我希望避免使用正则表达式和安装额外的模块。

使用正则表达式可能会对您有所帮助

my $escaped = quotemeta $string_with_quotes_and_spaces;

---

它将用反斜杠转义任何不是字母数字或下划线的内容。

如果您收到字符串，则Borodin使用quotemeta的解决方案将起作用

如果要声明字符串，可以使用qq开关声明自己的字符串分隔符。例如，使用#而不是“或”：

---

这将转义通常的字符串分隔符。

转义为什么数据格式/语言？（转义为HTML的数据与转义为SQL的数据是完全不同的问题等）“我希望避免使用正则表达式和安装额外的模块。”-这些是（IMO）首先，选择Perl的两个最大原因。你为什么要避免它们？你能举一个例子说明你想要什么吗？很难说出这里到底要问什么。请阅读并再试一次。在这种情况下使用正则表达式是一个非常糟糕的做法，因为它重新发明了轮子，而且有很多方法让你忘记了一些事情搞砸了。我不想安装额外的模块，因为我在一个没有很多权限的服务器上运行脚本。所以我在寻找一个@Borodin似乎已经承认的标准例程。我真正的错误确实是没有指定我想要什么样的转义。无论如何，Thanx。是的，这对我的情况没有帮助，但是无论如何，提示的anx；）

qq/

不会转义任何内容。它只是对双引号字符串使用分隔符而不是

“

的一种方式。

my $string = qq#Didn't know I could do this!"how" amazing#;