Hi Adam,
Yes File is RTF.
Regards,
Jitendra
On Fri, Dec 5, 2014 at 7:57 PM, Adam Millerchip <a...@millerchip.net> wrote:
> Your filename is in a variable called $rtf1, is the file an RTF?
>
> Maybe something funny is going on with the file-format/encoding, and the
> first line doesn't contain %VERSION% when parsed by your script. You could
> try printing out the line in your script to see what it's trying to match:
>
> for(@array){
> print "'$_'\n";
> ...
>
>
>
>
> On 5 December 2014 at 13:21, Jitendra Barik <jbarik...@gmail.com> wrote:
>
>> 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
>>
>
>
--
Regards,
Jitendra
