perl + awk + run awk from system command in perl (problem with syntax?) -

मैं निम्नलिखित स्क्रिप्ट लिखू

  #! / Usr / bin / perl सिस्टम (" Awk -F "=" '{s [$ 1] ++} {प्रिंट $ 1s [$ 1], $ 2}' OFS = "=" / var / tmp / फ़ाइल ");  

जब मैं स्क्रिप्ट चलाऊँ तो मुझे मिलती है:

  स्केलेर असाइनमेंट में स्ट्रिंग को / / stam2 5 लाइन पर संशोधित नहीं किया जा सकता, / var / Tmp / file ")" संकलन त्रुटियों के कारण ./stam2 का निष्पादन निरस्त किया गया।  

क्या समस्या यहां है?

लिडिया

• स्क्रिप्ट का लक्ष्य लाइन में प्रत्येक पैरामीटर के बाद संख्या में हेरफेर करना और जोड़ना है

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

मुझे संदेह है कि यह हो सकता है कि आप क्या चाहते हैं:

  #! / Usr / bin / perl सिस्टम (qq {awk -F " "'[एस [$ 1] ++} {प्रिंट $ 1 से [$ 1], $ 2}' OFS =" = "/ var / tmp / फ़ाइल});