मैं एक सिंगल उद्धृत स्ट्रिंग के अंदर तक एक स्ट्रिंग को व्हाइटस्पेस द्वारा कैसे विभाजित कर सकता हूं?

Question

मैं एक स्ट्रिंग जो निम्न प्रारूप में पाठ शामिल बंटवारे के लिए एक समाधान की मांग कर रहा हूँ:

"abcd efgh 'ijklm no pqrs' tuv" 

निम्नलिखित परिणाम देगा जो:

['abcd', 'efgh', 'ijklm no pqrs', 'tuv'] 

दूसरे शब्दों में, यह खाली स्थान के जब तक द्वारा विभाजन एक उद्धृत स्ट्रिंग के अंदर। मुझे लगता है कि यह "लुकराउंड" ऑपरेटरों, विशेष रूप से संतुलित ऑपरेटरों का उपयोग कर .NET regexps के साथ किया जा सकता है। मैं पर्ल के बारे में इतना यकीन नहीं कर रहा हूँ।

Answer 1

उपयोग Text::ParseWords:

#!/usr/bin/perl 

use strict; use warnings; 
use Text::ParseWords; 

my @words = parse_line('\s+', 0, "abcd efgh 'ijklm no pqrs' tuv"); 

use Data::Dumper; 
print Dumper \@words; 

आउटपुट:

C:\Temp> ff 
$VAR1 = [ 
      'abcd', 
      'efgh', 
      'ijklm no pqrs', 
      'tuv' 
     ];

आप Text::ParseWords::parse_line के लिए स्रोत कोड का इस्तेमाल किया पैटर्न को देखने के लिए देख सकते हैं।

Answer 2

तो आपने रेगेक्स का उपयोग करने का निर्णय लिया है? अब आपके पास दो समस्याएं हैं।

मुझे थोड़ा सा अनुमान लगाने की अनुमति दें। आप फ़ील्ड की मनमानी संख्या चाहते हैं, जहां एक फ़ील्ड बिना किसी स्पेस के टेक्स्ट से बना है, या यह रिक्त स्थान से अलग होता है और उद्धरण के साथ शुरू होता है और उद्धरण के साथ समाप्त होता है (संभवतया रिक्त स्थान के साथ)।

दूसरे शब्दों में, आप एक कमांड लाइन खोल करना चाहते हैं। आपको वास्तव में कुछ का पुन: उपयोग करना चाहिए। उसमें असफल होने पर आप एक समय में एक क्षेत्र पर कब्जा करना चाहिए की तरह एक regex कुछ के साथ,:,

^ *([^ ]+|'[^']*')(.*) 

कहाँ आप अपनी सूची में समूह एक संलग्न करें और समूह 2.

एक की सामग्री के साथ पाश जारी रखने के लिए एक रेगेक्स के माध्यम से एकल पास एक मनमाने ढंग से बड़ी संख्या में खेतों को पकड़ने में सक्षम नहीं होगा। आप एक रेगेक्स पर विभाजित करने में सक्षम हो सकते हैं (पायथन यह करेगा, पर्ल के बारे में निश्चित नहीं है), लेकिन चूंकि आप रिक्त स्थान के बाहर की सामग्री से मेल खाते हैं, मुझे यकीन नहीं है कि यह एक विकल्प भी है।

Answer 3

use strict; use warnings; 

my $text = "abcd efgh 'ijklm no pqrs' tuv 'xwyz 1234 9999' 'blah'"; 
my @out; 

my @parts = split /'/, $text; 

for (my $i = 1; $i < $#parts; $i += 2) { 
    push @out, split(/\s+/, $parts[$i - 1]), $parts[$i]; 
} 

push @out, $parts[-1]; 

use Data::Dumper; 
print Dumper \@out;