|
|
Replace aword in a.The replaced word should not be overwitten in perl(details inside)
02-20-2009
... its not an home work 
....I did open dir and rename the files in dir. The only problem i have is with data in the files that i opened to be not over written... example file1_x should not be replace as file1_a_x or file1_a_x_a....I tried to explain the issue in deatiled manner so i had given all the details... i will upload whta i have in a bit...$dirname = "all";
print "The dir that we are processing is $dirname :\n";
#######################################################################
##########Open a Directory called all and cp each unit in it to########
#example dir to dir_a###############################################
########################################################################
opendir(DIR, $dirname) or die "can't opendir $dirname: $!";
foreach $file(readdir DIR)
{
next if $file =~ /^\.\.?$/;
`cp -r $dirname/$file $dirname/${file}_a`;
$dirname1 = "$dirname/${file}_a";
##############################################################################
##########Open a Directory just named dir_a and rename all files in it########
#example file1.txt to file1_a.txt or file2.txt to file2_a.txt file1_x.txt to file1_x_a.txt
##############################################################################
opendir(DIR1, $dirname1) or die "can't opendir $dirname1: $!";
foreach $file1(readdir DIR1)
{
next if $file1 =~ /^\.\.?$/;
#printo
$file1=~/(.*)\.([^\.\t ]+)$/ ;
$file_name=$1;
$file_ext=$2;
print "$dirname1/$file1\n";
print "$dirname1/${file_name}_a.$file_ext\n";
`mv $dirname1/$file1 $dirname1/${file_name}_a.$file_ext `;
@newfile_list="$file_name";
$newfile="$dirname1/${file_name}_a.$file_ext";
#####################################################################################
##########Open a file that was just named file1_a.txt and rename the the words in it that say file1 with file1_a(should not dosomething like
file1_a_a) and file1_x to file1_x_a (it should not do something like this file1_a_x or file1_a_x_a)
######################################################################################
foreach $newfile_list (@newfile_list)
#while(@newfile_list)
{
open(afile, "$newfile")or die " Can not open $newfile \n";
open(afile1, ">$newfile.tmp")or die " Can not open $newfile.tmp \n";
while(<afile>)
{
if(/$newfile_list/)
{
$_=~s/$newfile_list/${newfile_list}_a/ ;
#print afile1 $_;
}
print afile1 $_;
}
close(afile)or die "can't close $newfile : $!";
close(afile1)or die "can't close $newfile.tmp: $!";
#`cp $newfile ${newfile}_org`;
`cp $newfile.tmp $newfile`;
`rm $newfile.tmp `;
}
}
print"\n@newfile_list";
#}
closedir(DIR1);
}
closedir(DIR);|
|
|
|