पर्ल में किसी मौजूदा फ़ाइल में स्ट्रिंग को कैसे प्रतिस्थापित करें?

Question

मैं 1_classification.dat, 2_classification.dat और इसी तरह की सभी टेक्स्ट फ़ाइलों में "नीली" से "लाल" शब्द को प्रतिस्थापित करना चाहता हूं। मैं एक ही फाइल को संपादित करना चाहता हूं इसलिए मैंने इस कोड को आजमाया लेकिन यह काम नहीं करता है। मुझसे कहां गलती हो रही है?

@files=glob("*_classification.dat"); 
foreach my $file (@files) 
{ 
    open(IN,$file) or die $!; 
    <IN>; 
    while(<IN>) 
    { 
     $_='~s/blue/red/g'; 
     print IN $file; 
    } 

    close(IN) 
} 

Answer 1

एक लाइनर के साथ कुछ भी गलत है?

$ perl -pi.bak -e 's/blue/red/g' *_classification.dat 

---

स्पष्टीकरण

• -p प्रक्रियाओं, तो लाइन द्वारा <> लाइन प्रिंट
• -i को सक्रिय करता है यथा-स्थान संपादन। फ़ाइलें .bak विस्तार
• अंतर्निहित चर पर regex प्रतिस्थापन कार्य करते हैं, जो फ़ाइल की सामग्री का उपयोग कर रहे हैं ऊपर का समर्थन कर रहे हैं, पंक्ति-दर-पंक्ति

Answer 2

$_='~s/blue/red/g';

उह, क्या??

बस

s/blue/red/g; 

या, यदि आप एक चर का उपयोग कर पर जोर देते हैं (जो आवश्यक नहीं है जब $ _ का उपयोग कर, लेकिन मैं सिर्फ सही वाक्य रचना दिखाना चाहते हैं):

$_ =~ s/blue/red/g; 

Answer 3

कोई नहीं यहां मौजूद मौजूदा उत्तरों में से एक स्क्रिप्ट के भीतर से ऐसा करने का एक पूर्ण उदाहरण प्रदान किया गया है (एक लाइनर नहीं)।

rename($file, $file.'.bak'); 
open(IN, '<'.$file.'.bak') or die $!; 
open(OUT, '>'.$file) or die $!; 
while(<IN>) 
{ 
    $_ =~ s/blue/red/g; 
    print OUT $_; 
} 
close(IN); 
close(OUT);