分解 patch 的脚本。perl。

晨想

用了一下，还好，就是把一个大的patch集合分解开来，有的时候挺方便的。

1. 
   
2. #!/usr/bin/perl
   
3. #
   
4. # simple script to split a diff in one file
   
5. # for each touched file
   
6. 
   
7. while(<>) {
   
8.         if (/^---/) {
   
9.                 @a = split(/[ \t]+/);
   
10.                 $fn = $a[1];
    
11.                 $fn =~ tr/\//_/;
    
12.                 if (-e $fn) {
    
13.                         $i = 1;
    
14.                         while(-e "$fn.$i") {
    
15.                                 $i++;
    
16.                         }
    
17.                         $fn .= ".$i";
    
18.                 }
    
19.                 print $fn;
    
20.                 print "\n";
    
21.                 close OUT;
    
22.                 open OUT, "> $fn" or die "Couldn't open $fn";
    
23.                 print OUT $buffer;
    
24.                 $buffer = "";
    
25.         }
    
26.         if (/^[+\- @]/) {
    
27.                 print OUT $_;
    
28.         } else {
    
29.                 $buffer .= $_;
    
30.         }
    
31. }
    

复制代码

johnny_jiang

多谢了，有段时间不写perl，正好复习一下，呵呵

yongjian

hey幻想,since its perl, I will just move it to perl sub forum.

晨想

oh, thanks. I forgot the perl sub-forum...:beat