Re^2: Replacing environment variables

Thanks for your reply. I have updated the OP with some sample input, which is, as you see, rather simple. I realised that the capturing the $ and then removing it is a bit silly, but when I moved the $ out of the capturing brackets, the match failed, so obvioulsy I have to escape the $ in some other way. You are right of course about not then needing two variables, one with the $ and one without.

loris

"It took Loris ten minutes to eat a satsuma . . . twenty minutes to get from one end of his branch to the other . . . and an hour to scratch his bottom. But Slow Loris didn't care. He had a secret . . ."

Comment on Re^2: Replacing environment variables

Replies are listed 'Best First'.
Re^3: Replacing environment variables by holli (Abbot) on Oct 18, 2006 at 12:54 UTC
while (<DATA>) { # match any dollar followed by a number # of non whitespaces (unicode safe) # and replace it by then corresponding # environment variable if ( s/\$(\P{IsSpace}+)/$ENV{$1}/ ) { $undefinedVars++ unless $ENV{$1}; } print; } if ( $undefinedVars > 0) { print "\n\nERROR: There were $undefinedVars undefined variables!\n +"; } __DATA__ bigcompany.product.part.path=$PATH bigcompany.product.part.widgit=$WIDGIT bigcompany.product.part.battery=$BATTERY bigcompany.product.part.frobnicator=$FROBNICATOR [download] holli, /regexed monk/	[reply] [d/l]
Re^4: Replacing environment variables by loris (Hermit) on Oct 18, 2006 at 14:03 UTC
Thanks for the nice concise solution, holli. Looking at it, I realise that I have missed out the case where the environment variable represents a directory and may be followed by a subdirectory (see updated OP). Thus the regexp would have to be a little different. loris "It took Loris ten minutes to eat a satsuma . . . twenty minutes to get from one end of his branch to the other . . . and an hour to scratch his bottom. But Slow Loris didn't care. He had a secret . . ."	[reply]