पर्ल - एक फ़ाइल की जगह

मुद्दा

जब मैं अपने पसंदीदा शेल में होता हूं, तो मैं रिप्लेसमेंट करता हूं:

 perl -pi -e's / lib \ / nagios / lib64 \ / nagios / g '/etc/nagios/nrpe.cfg 

मैं इस प्रतिस्थापन फ़ाइल का पुन: उपयोग करना चाहूंगा, लेकिन ऑनलाइन चलाने के लिए नहीं, पर्ल में स्क्रिप्ट का उपयोग करूंगा

और मुझे इसका उपयोग करना बेवकूफी लगता है

 सिस्टम ("perl -pi -e 's / lib \ / nagios / lib64 \ / nagios / g' /etc/nagios/nrpe.cfg") 

मैं कैसे करूँ, विचार?

उपाय

आप इसका उपयोग कर सकते हैं:

 $ फ़ाइल = "/etc/nagios/nrpe.cfg"; खुला (फ़ाइल, "<$ फ़ाइल"); @ यों =; बंद करें FILE; खुला (STDOUT, "> $ फ़ाइल"); for (@lines) {s + lib / nagios + lib64 / nagios + g; प्रिंट; } करीब STDOUT; 

ध्यान दें

इस टिप के लिए डबस्क का धन्यवाद।