Walter,
I have not tested this but I believe your problem is the greedy
matching. It is matching from one { to the furthest } it can. I am
guessing that \w is matching those internal }{ and the $ which I don't
think it should but they might be ignored because they are generally
meta characters. I would try adding the ? to switch to non-greedy
matching and see where that gets you. i.e. (\w+?)
Matt
-----Original Message-----
From: [email protected]
[mailto:[email protected]] On Behalf Of
[email protected]
Sent: Tuesday, December 08, 2009 10:07
To: [email protected]
Subject: [Perl-unix-users] Need help for regular expression problem
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
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
_______________________________________________
Perl-Unix-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
