Tricky little s///

[qwert231]

You guys are gonna kill me.

Now that I got my script searching for something simple, I want to search for this:
<$@App.ShareDirectory>\Images\Shirley

And replace it with:
\\Dell2400\IMAGES\Brian\217531\000001\001.jpg

 

[LightElf]

perldoc perlop

 

[Coderifous]

$this = &quot;<$@App.ShareDirectory>\Images\Shirley\&quot;;
$that = &quot;\\Dell2400\IMAGES\Brian\217531\000001\001.jpg&quot;;

$text =~ s/\E$this\Q/$that/go;


Untested, but should work. Kill you? Nah. We would just stop visiting this web site if we were that frustrated. (I hope)

--Jim

 

[qwert231]

Actually got it to work like this:
foreach $temp(@file_data){
if($temp =~ s/Layout/Job/){print &quot;It changed $temp&quot;;}
$tempVar1 = index($temp, &quot;<&quot;
$tempVar2 = index($temp, &quot;>&quot;
if($tempVar1 > -1){
$tempOff = ($tempVar2 + 1) - $tempVar1;
substr($temp,$tempVar1,$tempOff,&quot;&quot;
}
if($temp =~ s/\\Images\\Shirley/$newPath/){print &quot;It changed $temp&quot;;}
print JOB &quot;$temp&quot;;
}

First I strip out the <...> stuff then I can search for the \Images\Shirley stuff. Thanks guys.