Re^2: substitution in a string

One problem with this - it will substitute . for _ in all environmental variables.

How about

/^(?i:ORACLE_SID|ORACLE_HST_SID|ORACLE_HOME|SDP_HOME)=/ && s/([^=]+)/(my $lhs=$1) =~ tr:_:.:; $lhs/e for @envArray;

Roger

update: better idea by Roy Johnson below. Doh!

However his code doesn't actually work because the brackets are the (?imsx-imsx:pattern) extension. Below is a possible fix:

s/^((?i)ORACLE_SID|ORACLE_HST_SID|ORACLE_HOME|SDP_HOME)(?==)/(my $lhs=$1) =~ tr:_:.:; $lhs/e for @envArray;

Comment on Re^2: substitution in a string Select or Download Code

Replies are listed 'Best First'.
Re^3: substitution in a string by Roy Johnson (Monsignor) on Sep 28, 2005 at 14:36 UTC
There's really no need to do a separate match and substitution, just change the pattern that the substitution matches: `s/^((?i:ORACLE_SID\|ORACLE_HST_SID\|ORACLE_HOME\|SDP_HOME))(?==)/(my $lhs +=$1) =~ tr:_:.:; $lhs/e for @envArray;` [download] (update: corrected the missing parens, as per Roger_B's update) Caution: Contents may have been coded under pressure.	[reply] [d/l]