perl - 为什么 `|` （管道）上的拆分没有按预期工作？

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;