Shell Programming and Scripting

Hi,

With all of your input, i did intsall perl on windows from the activestate site.

My OS: Windows XP SP3

see below:
C:\Documents and Settings\>perl -v
This is perl, v5.10.0 built for MSWin32-x86-multi-thread

I did try the same unix script for windows and with modification of single quote to double quote.

the file change.txt

set CDIR=C:\

cd %CDIR%
perl -pi -e "
s|changeover|changeafter|g" tochange.txt
pause
exit

but when i run this file, it just hangs at
perl -pi -e "

line. Can anyone let me know, if any syntax changes on windows?
(As informed earlier, i could run the similar script on unix successfully).
thanks

Hi,
This file "config.prop" is located in various directories which are mapped as
u:
v:
n:
with the below code provided (from one of perl experts), i did try the same and could change the file in only one location.

while(<>){
chomp;
if ( /windowsdrivestocrawl=/){
w:/fdm9_84919_c347_2
}
print $_ ."\n";
}

The above is working perfectly, but only for the file located in current directory. (i have put in $file="config.prop" and it works fine if this is in current directory, but how to code for the directories as it changes - where iam stuck up!!)

Now this code needs to change this file in 3 different locations, with the directory and subsititution that changes for each directory. I will place this file in C: and then run the script so that it changes in all these 3 different locations (u, v, and n)
Example:
dir1:u:\psem\techart\agent
changefrom:n:/fdm9_84919_c347|j:/fdm9_84919_c347|w:/fdm9_84919_c347_2
changeto:w:/fdm9_84919_c347_2
The above is done using the code provided.


dir2:v:\psem\techart\agent
changefrom: n:/fdm9_84919_c347|j:/fdm9_84919_c347|w:/fdm9_84919_c347_2
changeto:n:/fdm9_84919_c347

dir3:n:\psem\techart\agent
changefrom: n:/fdm9_84919_c347|j:/fdm9_84919_c347|w:/fdm9_84919_c347_2
changeto:j:/fdm9_84919_c347

I tried with a variable
$dir and assigning it to other locations specified above.
It does not work.

Can you let me know how to do it? Any directions?
With just one code, i need to change the file in three different locations.

Try starting it with

Code:

@volumes = ("u","v","n");
foreach $volume(@volumes){
   # When the program enters this loop the first time, $volume = "u"
   $directory = "$volume:\\psem\\techart\\agent";

   #you can test it with a print statement
   print "\$directory = $directory\n";

   # Do your substitutions for the file in $directory

   # When you are done, it will repeat the loop for the next two volumes
   # and then exit.
}