`|` (पाइप) पर विभाजित क्यों अपेक्षित काम नहीं कर रहा है?

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;