Tại sao chia tách trên `|` (đường ống) không hoạt động như mong đợi?

Question

Tôi có một chuỗi mà tôi muốn chia nhỏ. Nhưng dấu phân tách được xác định trong thời gian chạy và vì vậy tôi cần chuyển nó thành một biến.

Một cái gì đó như my @fields = split(/$delimiter/,$string); không hoạt động. Có suy nghĩ gì không?

---

Input:

abcd|efgh|23 

Dự kiến ​​Output:

abcd 
efgh 
23 

Answer 1

Bạn cần phải thoát khỏi delimiter của bạn, vì đó là một nhân vật đặc biệt trong biểu thức thông thường.

Lựa chọn 1:

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

Phương án 2:

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