为什么拆分`|`（管道）不按预期工作？

Question

我有一个我要拆分的字符串。 但是分隔符是在运行时确定的，因此我需要将其作为变量传递。

像my @fields = split(/$delimiter/,$string); 不起作用。 有什么想法吗？

---

输入：

abcd|efgh|23

预期产出：

abcd
efgh
23

Answer 1

您需要转义分隔符，因为它是正则表达式中的特殊字符。

选项1：

$delimiter = quotemeta($delimiter);
my @fields = split /$delimiter/, $string;

选项2：

my @fields = split /\Q$delimiter/, $string;