topic Perl search and replace in Operating System - HP-UX

Perl search and replace

HPP — Thu, 26 Feb 2004 09:50:39 GMT

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.

Re: Perl search and replace

H.Merijn Brand (procura — Thu, 26 Feb 2004 10:03:08 GMT

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

Re: Perl search and replace

harry d brown jr — Thu, 26 Feb 2004 10:15:39 GMT

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

Re: Perl search and replace

HPP — Thu, 26 Feb 2004 10:18:00 GMT

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

Thanks again.
PAd

Re: Perl search and replace

HPP — Thu, 26 Feb 2004 10:19:15 GMT

Thanks harry.