Perl search and replace

[HPP]

Hi,
I have written perl script, which prompts for network parameters and modifies copule of file, one of them is tnanames.ora. I am trying to search and replace in tnsnames.ora:

Current values:

(ADDRESS = (PROTOCOL = TCP)(HOST = 192.168.32.100)(PORT = 1521))

Search and replace with perl script:
$IN =~ s/\(^ .*\)\(ADDRESS.*\)\(HOST.*\)\(PORT.*\)/\1\2HOST \= $IP_ADDRESS\)\(\4/g;

Perl script does nothing. But if I use the same search and replace within vi it works.

:1,$s/\(^ .*\)\(ADDRESS.*\)\(HOST.*\)\(PORT.*\)/\1\2HOST \= $IP_ADDRESS\)\(\4/g;

Am i missing anything with perl script?

thanks in advance.

[H.Merijn Brand (procura · Accepted solution]

1. use $1, $2, $3 in the replacement pattern
2. perl's re's capture with (), not with \(\)
3. the start of string anchor cannot match after a literal (

so you regex does not capture anything

Enjoy, H.Merijn

[harry d brown jr]

Like Procura stated, change your line to:

$IN =~ s/(^.*)(ADDRESS.*)(HOST.*)(PORT.*)/$1$2HOST = $IP_ADDRESS)($4))/g;

You also had a SPACE after the carat (^), which will only match if there is a SPACE in front of "(ADDRESS".

live free or die
harry

[HPP]

Merijin,
Thanks for the quick response. I made changes to script and its working fine.

Thanks again.
PAd

[HPP]

Thanks harry.