Need help to substitute

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

Hi Folks,

My variable contains below value which has "install_temp" or "install_patch" folder.

D:\ostore_7.3.0_tfix_bld\install_temp\OStore\bin\os_coll.adb
[download]

D:\ostore_7.3.0_tfix_bld\install_patch\osji\lib\osjiload.ldb
[download]

i need to change the "install_temp" or "install_patch" folder to "install" like below.

D:\ostore_7.3.0_tfix_bld\install\OStore\bin\os_coll.adb
[download]

D:\ostore_7.3.0_tfix_bld\install\osji\lib\osjiload.ldb
[download]

i am not sure how can i make this using regular expressions?

Thank you...

Comment on Need help to substitute Select or Download Code

Replies are listed 'Best First'.
Re: Need help to substitute by 2teez (Vicar) on Oct 04, 2012 at 13:40 UTC
like so: `use warnings; use strict; while (<DATA>) { chomp; print "before change: ", $_, $/; s/(.+?)install.+?\\(.*?)/$1install\\$2/; print "After change: ", $_, $/; } __DATA__ D:\ostore_7.3.0_tfix_bld\install_temp\OStore\bin\os_coll.adb D:\ostore_7.3.0_tfix_bld\install_patch\osji\lib\osjiload.ldb` [download] If you tell me, I'll forget. If you show me, I'll remember. if you involve me, I'll understand. --- Author unknown to me	[reply] [d/l]
Re: Need help to substitute by nemesdani (Friar) on Oct 04, 2012 at 13:29 UTC
You need to escape the \-s. After that `=~ s/(install_temp\|install_patch)/install/` should work. Or am I missing something? I'm too lazy to be proud of being impatient.	[reply] [d/l] [select]
Re: Need help to substitute by Athanasius (Archbishop) on Oct 04, 2012 at 14:49 UTC
A variation on the theme, using Look-Around Assertions: `#! perl use v5.12; say s! ( ?<= \\ install ) _ .+? ( ?= \\ ) !!rx for 'D:\ostore_7.3.0_tfix_bld\install_temp\OStore\bin\os_coll.adb' +, 'D:\ostore_7.3.0_tfix_bld\install_patch\osji\lib\osjiload.ldb' +;` [download] Output: `D:\ostore_7.3.0_tfix_bld\install\OStore\bin\os_coll.adb D:\ostore_7.3.0_tfix_bld\install\osji\lib\osjiload.ldb` [download] Hope that helps, Athanasius <°(((>< contra mundum	[reply] [d/l] [select]