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

最新推荐文章于 2024-07-17 07:31:22 发布

wenbinsan

最新推荐文章于 2024-07-17 07:31:22 发布

阅读量1.3k

点赞数

分类专栏： Perl 文章标签：脚本 perl file patch vim c

本文链接：https://blog.csdn.net/wenbinsan/article/details/7778776

版权

Perl 专栏收录该内容

2 篇文章

订阅专栏

本文介绍了一个Perl脚本，用于自动化生成代码修改的diff文件。该脚本能够搜索以'.orig'结尾的文件，并针对这些文件生成对应的.diff文件，进而便于代码变更的管理和移植。此外，脚本还会自动创建必要的目录结构以存放这些文件。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

在已有代码上修改代码一般要生成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 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\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`;
	}
}