मैं अपने बैश लूप वैरिएबल को पर्ल दुभाषिया में कैसे पास कर सकता हूं?

Question

मैं बैश और पर्ल के संयोजन के साथ कुछ स्क्रिप्ट को संशोधित करने की कोशिश कर रहा हूं।

for index in {1..25}; do 
    perl -pi -e 's/\d+/$index/' cmd_$index.sh; 
done 

वहाँ $index पर्ल एक लाइनर के भीतर अपनी बैश लबादा पहन बनाने के लिए एक रास्ता है: मुसीबत पर्ल का मानना ​​है कि कि $index अपनी ही चर, जो परिभाषित नहीं किया जाता है?

Answer 1

do लूप में export index; निचोड़ें। पर्ल कार्यक्रम के शरीर में $ENV{index} का संदर्भ लें।

वैकल्पिक रूप से: डबल कोट्स "… $index … " का उपयोग करें जो कि चर चरम को अभिव्यक्ति में विभाजित करने के लिए है जो पर्ल प्रोग्राम का शरीर बनाता है। यदि आप इस एक-लाइनर का विस्तार करना चाहते हैं, तो पर्ल अभिव्यक्तियों जैसे $ पर वेरिएबल नामों से ठीक से बचने के लिए सावधानी बरतें, और शायद बैकस्लेश, ताकि पर्ल द्वारा व्याख्या की जा सके, शैल नहीं।

Answer 2

' के बजाय " का उपयोग करें। पर्ल इसे देखने से पहले बैश वैरिएबल को प्रतिस्थापित कर सकता है।

Answer 3

सिंगल कोट्स के बजाय डबल कोट्स का उपयोग करें और $ स्ट्रिंग को पार करने से पहले $ इंडेक्स इंटरपोलेट किया जाएगा।

Answer 4

यहाँ एक काम कर उदाहरण दिया गया है (हालांकि आपकी समस्या के संदर्भ में नहीं - खेद है!):

generatep() { 
    perl -e ' 
     $_stem=$ARGV[0]; 
     $_ctx=$ARGV[1]; 
     $_role=$ARGV[2]; 
     $i=$ARGV[3]; 
     $ct=$i + $ARGV[4]; 
     while ($i < $ct) { 
      print "user=$_stem$i,$_ctx,$_role\n"; 
      $i++; 
     } 
    ' ${stem} ${ctx} ${role} ${startix} ${count} 
} 

Answer 5

मैं इस समस्या यहाँ लगता है कि पार्टी खोल globs पर्वतमाला का समर्थन नहीं करते है। किसी कारण से, मैंने सोचा कि उन्होंने किया था। कोई फर्क नहीं पड़ता, perl श्रेणियों का समर्थन करता है ठीक है:

perl -pi -e ' 
    BEGIN { @ARGV = map "cmd_$_.sh", 1 .. 25; } 
    my ($index) = $ARGV =~ /(\d+)/; 
    s/\d+/$index/' 

थोड़ा सा बेकार, लेकिन यह वैसे भी एक भाषा है।