Re: Need help to substitute


Perl-Sensitive Sunglasses
	PerlMonks

Re: Need help to substitute

by 2teez (Vicar)

on Oct 04, 2012 at 13:40 UTC ( [id://997235]=note: print w/replies, xml )

Need Help??

in reply to Need help to substitute

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