Search and replace

Bharath666 has asked for the wisdom of the Perl Monks concerning the following question:

Hi I want to replace all occurrences of ENV{"value"} in the following string with $ENV("value"). This "value" is for example and varies.

$found="ENV{\"VCINSTALLDIR\"}\ATLMFC\LIB\amd64;ENV{\"LIBPATH\"}"

please help me how to do this

Comment on Search and replace Download Code

Replies are listed 'Best First'.

Re: Search and replace
by Athanasius (Cardinal) on Jan 31, 2013 at 15:28 UTC

Use the substitution operator s///g like this:

 1:30 >perl -wE "my $found = 'ENV{\"VCINSTALLDIR\"}\ATLMFC\LIB\amd64;E
+NV{\"LIBPATH\"}'; $found =~ s/ENV{\"(.*?)\"}/\$ENV(\"$1\")/g; say $fo
+und;"
$ENV("VCINSTALLDIR")\ATLMFC\LIB\amd64;$ENV("LIBPATH")

 1:30 >
[download]

Within the substitution, the parentheses capture the “value” text which is used in the replacement as $1. The /g modifier tells the regex engine to keep searching and substituting until the string is exhausted.

See perlretut and perlre.

Hope that helps,

Athanasius <°(((>< contra mundum Iustus alius egestas vitae, eros Piratica,

[reply]
[d/l]
[select]

Re^2: Search and replace

by Bharath666 (Novice) on Jan 31, 2013 at 15:53 UTC

Thank you!! Really I am weak in handling regex of this kind. Thank you soooo much

[reply]

Re^3: Search and replace

by Bharath666 (Novice) on Jan 31, 2013 at 15:59 UTC

Also if you don't mind can you please explain me how exactly this command works

$found =~ s/ENV{\"(.*?)\"}/\$ENV(\"$1\")/g;

Thanks!!

[reply]
[d/l]

Re^4: Search and replace

by Athanasius (Cardinal) on Jan 31, 2013 at 16:23 UTC

Re^5: Search and replace

by Bharath666 (Novice) on Feb 01, 2013 at 05:57 UTC