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

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

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

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

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

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

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

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

具体实现如下：

#!/usr/bin/perl# create a direction to save coding files$code = "./coding";if(-d $code){ print "Direction $code already existed. Remove it\n"; `rm -rf $code`;}print  "create $code direction\n";`mkdir $code`;#Find orig file and modifed file for mkdir diff fileforeach $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\n";print "find $orig_file_name\n";print "create $diff_file_name\n";`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\n";print "copy $file_name, $orig_file_name, $diff_file_name to $d\n";`cp $file_name $d`;        `cp $orig_file_name $d`;        `cp $diff_file_name $d`;}}