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;