HI All,

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


*Installation Notes*



The driver can be installed either during OS setup or as an update
-- 

*Revision History*



%VERSION%


**************************************************************



In the above file, the first %VERSION% is not substitute but second one is
repalced bt string JITENDRA. I am executing in windows OS. Could you please
help me why it is not working.



Regards,
Jitendra

Reply via email to