Perl Language
अनियंत्रित विभाजकों पर एक स्ट्रिंग विभाजित करें
खोज…
parse_line ()
पाठ के parse_line()
का उपयोग करना :: ParseWords :
use 5.010;
use Text::ParseWords;
my $line = q{"a quoted, comma", word1, word2};
my @parsed = parse_line(',', 1, $line);
say for @parsed;
आउटपुट:
"a quoted, comma"
word1
word2
पाठ :: CSV या पाठ :: CSV_XS
use Text::CSV; # Can use Text::CSV which will switch to _XS if installed
$sep_char = ",";
my $csv = Text::CSV->new({sep_char => $sep_char});
my $line = q{"a quoted, comma", word1, word2};
$csv->parse($line);
my @fields = $csv->fields();
print join("\n", @fields)."\n";
आउटपुट:
a quoted, comma
word1
word2
टिप्पणियाँ
डिफ़ॉल्ट रूप से, पाठ :: CSV, विभाजक चरित्र के आसपास
Text::ParseWords
को पट्टी नहीं करता है, जिस तरह सेText::ParseWords
करता है। हालाँकि,allow_whitespace=>1
को कंस्ट्रक्टर विशेषताओं में जोड़ने से वह प्रभाव प्राप्त करता है।my $csv = Text::CSV_XS->new({sep_char => $sep_char, allow_whitespace=>1});
आउटपुट:
a quoted, comma word1 word2
पुस्तकालय विशेष पात्रों से बचने का समर्थन करता है (उद्धरण, विभाजक)
लायब्रेरी कॉन्फ़िगर करने योग्य विभाजक वर्ण, उद्धरण वर्ण और एस्केप वर्ण का समर्थन करता है
Documentatoin: http://search.cpan.org/perldoc/Text::CSV
Modified text is an extract of the original Stack Overflow Documentation
के तहत लाइसेंस प्राप्त है CC BY-SA 3.0
से संबद्ध नहीं है Stack Overflow