perl 脚本实现简单搜索修改文件并生成diff文件

在已有代码上修改代码一般要生成diff文件来生成patch，从而porting到相关baseline上。

修改文件较少时可以一个个来生成，但是当修改文件较多时就会很耗费工时，所以就想

写一个脚本来减少工时消耗。你只需要关注coding，而不必担心diff文件的生成。

实现的思想只要是：首先搜索以".orig"结尾的文件（这可以通过vim中设置来自动生成），

然后截断.orig来获得修改后的文件。从而生成已"*.diff"结尾的diff文件也可以成为patch。

当把这三个相关文件复制到一个专门存放code文件夹中时，要考虑在coding文件夹中创建

相关目录，目录只能是一级一级创建。所以要用到split来分割。

具体实现如下：

[python] view plaincopy

 

#!/usr/bin/perl  
  
  
# create a direction to save coding files  
$code = "./coding";  
if(-d $code)  
{  
     print "Direction $code already existed. Remove it
";  
     `rm -rf $code`;  
}  
print  "create $code direction
";  
`mkdir $code`;  
  
  
#Find orig file and modifed file for mkdir diff file  
foreach $orig_file_name (`find . -name "*.orig" -size +0c`){  
    chomp ($orig_file_name);  
    $file_name = substr($orig_file_name, 0, index($orig_file_name, ".orig"));  
    if(-f $file_name)  
    {  
        $diff_file_name = $file_name.".diff";  
        print "find $file_name
";  
        print "find $orig_file_name
";  
        print "create $diff_file_name
";  
        `diff -c $orig_file_name $file_name > $diff_file_name`;  
         
        @dTree = split(///, $orig_file_name);  
        $a = @dTree;  
        $d = $code;  
        for($i = 1; $i < $a - 1; $i++)  
        {  
            $d = "$d/$dTree[$i]";  
            `mkdir $d`;  
        }  
        print "create $d
";  
        print "copy $file_name, $orig_file_name, $diff_file_name to $d
";  
        `cp $file_name $d`;  
        `cp $orig_file_name $d`;  
        `cp $diff_file_name $d`;  
    }