Re^2: substitution in a string

[Roger_B]

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;

[Roy Johnson]

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;

(update: corrected the missing parens, as per Roger_B's update)