Hello, I have the following strings: TEST1=/bla/\${var1}/bla/${var2}a${var3}/bla TEST2=/bla/\${var1}/bla/${var2}${var3}/bla
I want to transform them: TEST1=/bla/\$ENV{var1}/bla/$ENV{var2}a$ENV{var3}/bla TEST2=/bla/\$ENV{var1}/bla/$ENV{var2}$ENV{var3}/bla The rule: substitute all $var to $ENV{var}, but not if the character before $ is a \ (backslash). My solution works fine with TEST1 but not with TEST2: s/(^|[^\\]?)\$\{(\w+)\}/$1\$ENV\{$2\}/g; I get: TEST1=/bla/\$ENV{var1}/bla/$ENV{var2}a$ENV{var3}/bla TEST2=/bla/\$ENV{var1}/bla/$ENV{var2}{var3}/bla The problem occure, if no character is between two variables. Some ideas? Thanks, Walter _______________________________________________ Perl-Unix-Users mailing list Perl-Unix-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs