Hi Shawn, it is VERSION. This is the not a issue. s/\%VERSION\%/$version1/g; the correct one.
If I changed VERSION to VERSIONABC it is working correctly OR if I add more character to VERSION then it is working. I could not understand why it is not working for me. The first place in the file is not changed but second occurrence it has replaced the string. Please let me know oi there anything I need to verify? Regards, Jitendra On Thu, Dec 4, 2014 at 6:50 PM, Shawn H Corey <shawnhco...@gmail.com> wrote: > On Thu, 4 Dec 2014 16:06:26 +0530 > Jitendra Barik <jbarik...@gmail.com> wrote: > > > My code is: > > > > $version1 = "JITENDRA"; > > tie @array,Tie::File,"$rtf1" or die($!); > > > > for(@array){ > > #print "Hi"; > > s/\%VERSIONS\%/$version1/g; > > > > > > } > > untie(@array); > > > > FILE: > > *********************************************************************** > > > > *Version *%VERSION%, Hello,HI > > In the substitution, you have VERSIONS but in the file, you have VERSION > > If the S is optional, use: s/\%VERSIONS?\%/$version1/g; > > > -- > Don't stop where the ink does. > Shawn > > -- > To unsubscribe, e-mail: beginners-unsubscr...@perl.org > For additional commands, e-mail: beginners-h...@perl.org > http://learn.perl.org/ > > > -- Regards, Jitendra