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;