How do it do find and replace specific words using perl

Fri, 23 Jul 2004 03:14:13 -0700 

Hi All,

Could some help me in doing this using perl.

1. Open a text file (Adapter.data ) with following contents.

        HEADER.JMSDestination=sample_dataQ
        HEADER.JMSDeliveryMode=Persistent
        HEADER.JMSType=Data
        HEADER.JMSCorrelationID=2
        HEADER.JMSPriority=4

        PROPERTY.STRING.Data_Type=Purchase_Order
        PROPERTY.STRING.Data_Qualifier=Update
        PROPERTY.STRING.Data_Delivery_Mode=Notification
        PROPERTY.STRING.Data_Format=OPEN
        PROPERTY.LONG.TimeToLive=200
        PROPERTY.STRING.Src_Client_Addr=godavari::SendToAdapter
        PROPERTY.STRING.Src_Client_Version=1.0
        PROPERTY.STRING.Src_Client_Type=TestHarness

        specific.Directory=/home/anand/Demo/ADK/temp/sendToAdapter
        specific.RequestTimeOut=5
        
specific.DataFile=/home/anand/Demo/ADK/temp/sendToAdapter/someFileToSend.dat


2. Replace sample_dataQ with Adapter_dataQ and replace someFileToSend.dat
with data.txt


Any login to do this with brief syntax is highly appreciated.

Thanks in advance

Anand

Reply via email to