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

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;