एक लाइन को विभाजित करने के लिए पर्ल का उपयोग करना जिसमें व्हाइटस्पेस

Question

हो सकता है ठीक है, इसलिए मैं कुछ सामान्य कॉन्फ़िगरेशन डेटा वाले फ़ाइल में पढ़ने के लिए perl का उपयोग कर रहा हूं। यह डेटा हेडर में व्यवस्थित होता है जिसका अर्थ है कि उनका क्या मतलब है। एक उदाहरण इस प्रकार है:

[vars] 

# This is how we define a variable! 
$var = 10; 
$str = "Hello thar!"; 


# This section contains flags which can be used to modify module behavior 
# All modules read this file and if they understand any of the flags, use them 
[flags] 
    Verbose =  true; # Notice the errant whitespace! 

[path] 
WinPath = default; # Keyword which loads the standard PATH as defined by the operating system. Append with additonal values. 
LinuxPath = default; 

लक्ष्य: एक उदाहरण "$ var = 10;" के रूप में पहली पंक्ति का उपयोग करना, मैं एक सरणी है कि वर्ण हैं बनाने के लिए पर्ल में विभाजित समारोह का उपयोग करना चाहते "$ वर "और" 10 "तत्वों के रूप में। एक उदाहरण के रूप में एक और लाइन का उपयोग करना:

Verbose =   true; 
    # Should become [Verbose, true] aka no whitespace is present 

यह इसलिए आवश्यक है क्योंकि मैं एक नई फ़ाइल में इन मूल्यों को (जो सी ++ कोड का एक अलग टुकड़ा पढ़ा जाएगा) वस्तुओं शब्दकोश का दृष्टांत के लिए outputting कर दिया जाएगा। बस (के रूप में मैं साथ जाने बस इसे बनाने तक) आप यह कैसा लग सकता है एक छोटा सा स्वाद देने के लिए:

define new dictionary 
name: [flags] 
# Start defining keys => values 
new key name: Verbose 
new value val: 10 
# End dictionary

ओह, और यहाँ है कोड मैं वर्तमान में यह क्या कर रहा है (गलत) के साथ है :

sub makeref($) 
{ 
    my @line = (split (/=/)); # Produces ["Verbose", " true"]; 
} 

, एक सवाल का जवाब देने कारण है कि मैं कॉन्फ़िग :: सरल उपयोग नहीं कर रहा है कि मैं मूल रूप से क्या मेरी विन्यास फाइल कैसा दिखेगा पता नहीं था, केवल क्या मैं इसे करना चाहता था है। जैसे ही मैं साथ गया, इसे कम करना - कम से कम मुझे क्या समझ में आया - और फाइल को पार्स करने के लिए पर्ल का उपयोग करना।

समस्या मैं कुछ सी ++ कोड कि कॉन्फ़िग फ़ाइल में जानकारी लोड होगा है, लेकिन C++ या सी में पार्स करने है :(मैं पर्ल उपयोग करने का फैसला के बाद से। यह भी मेरे लिए एक अच्छा सीखने व्यायाम है, क्योंकि मैं नया हूँ है भाषा के लिए। तो यह बात है, यह पर्ल कोड वास्तव में मेरे एप्लिकेशन से अलग नहीं है, यह सी ++ कोड को जानकारी पढ़ने के लिए आसान बनाता है। और, यह अधिक पठनीय है (कॉन्फ़िगरेशन फ़ाइल और जेनरेट की गई फाइल दोनों)। प्रतिक्रिया के लिए धन्यवाद, यह वास्तव में मदद की।

Answer 1

आप एक सीखने व्यायाम के रूप में यह पार्स कर रहे हैं, ठीक है। हालांकि, CPAN में कई मॉड्यूल हैं जो आपके लिए बहुत काम करेंगे।

use Config::Simple; 
Config::Simple->import_from('some_config_file.txt', \my %conf); 

Answer 2

लगता है जैसे आप यह मिल गया है। बंटवारे से पहले व्हाइटस्पेस पट्टी।

sub makeref($) 
{ 
    s/\s+//g; 
    my @line = (split(/=/)); # gets ["verbose", "true"] 
} 

Answer 3

यह कोड चाल करता है (और उलट के बिना अधिक कुशल है)। एक रेगुलर एक्सप्रेशन पर

for (@line) { 
    s/^\s+//; 
    s/\s+$//; 
} 

Answer 4

split विभाजन है, तो आप बस अपने regex में = संकेत चारों ओर खाली स्थान के रख सकते हैं:

split (/\s*=\s*/, $line); 

आप स्पष्ट रूप से सभी सफेद स्थान को निकालना नहीं चाहते हैं, या इस तरह के एक लाइन का उत्पादन किया जाएगा (स्ट्रिंग में व्हाइटसाइट स्पेस):

$str="Hellothere!"; 

मुझे लगता है कि चालू शुरुआत और पंक्ति के अंत से ly को हटाने के खाली स्थान के लिए पर्याप्त है:

$line =~ s/^\s*(.*?)\s*$/$1/; 

दो बयानों के साथ एक आसान विकल्प:

$line =~ s/^\s+//; 
$line =~ s/\s+$//; 

Answer 5

आप शायद यह सब पता लगा है, लेकिन मैंने सोचा कि मैं एक छोटे से जोड़ना होगा। आप

sub makeref($) 
{ 
    my @line = (split(/=/)); 
    foreach (@line) 
    { 
     s/^\s+//g; 
     s/\s+$//g; 
    } 
} 

तो आप से पहले और दोनों को छोड़ दिया और सही पक्ष के बाद सफेद स्थान को निकालना होगा। इस तरह कुछ:

this is a parameter   =  all sorts of stuff here 

में पागल रिक्त स्थान नहीं होंगे।

!! चेतावनी: मुझे शायद नहीं पता कि मैं किस बारे में बात कर रहा हूं !!