帮忙合并两个文件中的不同内容

yinyuemi

回复 1# jiujiujiu338

1. #!/bin/perl
   
2. use strict;
   
3. 
   
4. open (my $fh1,"file1");
   
5. open (my $fh2,"file2");
   
6. open (my $fh3,">","file3");
   
7. 
   
8. my %hash;
   
9. my $t="";
   
10. 
    
11. while (<$fh1>){
    
12.         if($_!~/end/ and $_!~/^$/){
    
13.                 if($_!~/^\d/){$t.=$_;}
    
14.                 else{$hash{$t}.=$_ ;}
    
15.                 }
    
16.         else{$t="";
    
17.                 }
    
18. }
    
19. while (<$fh2>){
    
20.         if($_!~/end/ and $_!~/^$/){
    
21.                 if($_!~/^\d/){$t.=$_;}
    
22.                 else{$hash{$t}.=$_ ;}
    
23.                 }
    
24.         else{$t="";
    
25.                 }
    
26.         }
    
27. 
    
28. foreach my $p (keys %hash) {
    
29.         print  $fh3 $p, join "\n", (sort {$a<=>$b} (split /\n/, $hash{$p})),"end\n\n";
    
30.         }
    
31. 
    
32. close($fh1);
    
33. close($fh2);
    
34. close($fh3);
    

复制代码

yinyuemi

回复 22# jiujiujiu338


   假如我那段perl程序名叫s.pl，运行下面的代码（如果你是win，把单引号改成双引号），再执行试试

    perl -i -lpne 's/end/word0/g' s.pl

yinyuemi

回复 25# jiujiujiu338

1. 
   
2.     #!/bin/perl
   
3. use strict;
   
4. 
   
5. open (my $fh1,"file1");
   
6. open (my $fh2,"file2");
   
7. open (my $fh3,">","file3");
   
8. 
   
9. my %hash;
   
10. my $t="";
    
11. 
    
12. while (<$fh1>){
    
13.         if($_!~/word0/ and $_!~/^$/){
    
14.                 if($_!~/^\d/){$t.=$_;}
    
15.                 else{$hash{$t}.=$_ ;}
    
16.                 }
    
17.         else{$t="";
    
18.                 }
    
19. }
    
20. while (<$fh2>){
    
21.         if($_!~/word0/ and $_!~/^$/){
    
22.                 if($_!~/^\d/){$t.=$_;}
    
23.                 else{$hash{$t}.=$_ ;}
    
24.                 }
    
25.         else{$t="";
    
26.                 }
    
27.         }
    
28. my %hash2;
    
29. foreach my $p (keys %hash) {
    
30.         print $fh3 $p;
    
31.         $hash2{substr($_,0,index($_,"\."))}=$_ foreach (split /\n/,$hash{$p});
    
32.         print $fh3 $hash2{$_},"\n" foreach sort {$a<=>$b} (keys %hash2);
    
33.         print $fh3 "word0\n\n";
    
34.         undef(%hash2);
    
35.         }
    
36. 
    
37. close($fh1);
    
38. close($fh2);
    
39. close($fh3);

复制代码

yinyuemi

回复 29# jiujiujiu338

1. 
   
2. split /\n/ $hash{$p} # 把$hash{$p}的值，split 成一个数组，分隔符是'\n'
   
3. foreach 函数读取上面的数组值，默认下用$_
   
4. substr函数截取，比如“13.081 11.386”字符串中的13
   
5. $hash2{}=$_ #建一个hash，key是 13，value是 “13.081 11.386”
   
6. 
   

复制代码

yinyuemi

回复 31# jiujiujiu338

1. #!/bin/perl
   
2. use strict;
   
3. 
   
4. open (my $fh1,"file1");
   
5. open (my $fh2,"file2");
   
6. open (my $fh3,">","file3");
   
7. 
   
8. my %hash1;
   
9. my %hash2;
   
10. my %hash3;
    
11. my $t="";
    
12. my $tmp="";
    
13. 
    
14. while (<$fh1>){
    
15.         if($_!~/end/ and $_!~/^$/){
    
16.                 if($_!~/^\d/){
    
17.                         $tmp=$1 if(/(name=\S+)\s+.*/);
    
18.                         {$t.=$_;}
    
19.                 }
    
20.                 else{$hash1{$t}.=$_ ;}
    
21.                 }
    
22.         else{$hash2{$tmp}=$t if($_=~/end/);
    
23.                 $t="";
    
24.                 $tmp="";
    
25.                 }
    
26. }
    
27. while (<$fh2>){
    
28.         if($_!~/end/ and $_!~/^$/){
    
29.                 if($_!~/^\d/){
    
30.                         $tmp=$1 if(/(name=\S+)\s+.*/);
    
31.                         {$t.=$_;}
    
32.                 }
    
33.                 else{$hash1{$t}.=$_ ;}
    
34.                 }
    
35.         else{
    
36.                 if($_=~/end/){
    
37.                         if(exists($hash2{$tmp})){$hash1{$hash2{$tmp}}.=$hash1{$t};
    
38.                                 delete $hash1{$t};}
    
39.                         else{$hash2{$tmp}=$t;}
    
40.                 }
    
41.                 $t="";
    
42.                 $tmp="";
    
43.                 }
    
44.         }
    
45. 
    
46. foreach my $p (keys %hash1) {
    
47.         print $fh3 $p;
    
48.         $hash3{substr($_,0,index($_,"\."))}=$_ foreach (split /\n/,$hash1{$p});
    
49.         print $fh3 $hash3{$_},"\n" foreach sort {$a<=>$b} (keys %hash3);
    
50.         print $fh3 "end\n\n";
    
51.         undef(%hash3);
    
52.         }
    
53. 
    
54. close($fh1);
    
55. close($fh2);
    
56. close($fh3);

复制代码

yinyuemi

回复 39# jiujiujiu338

1. #!/bin/perl
   
2. use strict;
   
3. 
   
4. open (my $fh1,"file1");
   
5. open (my $fh2,"file2");
   
6. open (my $fh3,">","file3");
   
7. 
   
8. my %hash1;
   
9. my %hash2;
   
10. my %hash3;
    
11. my %hash4;
    
12. my $t="";
    
13. my $tmp="";
    
14. 
    
15. while (<$fh1>){
    
16.         if($_!~/end/ and $_!~/^$/){
    
17.                 if($_!~/^\d/){
    
18.                         $tmp=$1 if(/(name=\S+)\s+.*/);
    
19.                         {$t.=$_;}
    
20.                 }
    
21.                 else{$hash1{$t}.=$_ ;}
    
22.                 }
    
23.         else{$hash2{$tmp}=$t if($_=~/end/);
    
24.                 $t="";
    
25.                 $tmp="";
    
26.                 }
    
27. }
    
28. while (<$fh2>){
    
29.         if($_!~/end/ and $_!~/^$/){
    
30.                 if($_!~/^\d/){
    
31.                         $tmp=$1 if(/(name=\S+)\s+.*/);
    
32.                         {$t.=$_;}
    
33.                 }
    
34.                 else{$hash1{$t}.=$_ ;}
    
35.                 }
    
36.         else{
    
37.                 if($_=~/end/){
    
38.                         if(exists($hash2{$tmp})){$hash1{$hash2{$tmp}}.=$hash1{$t};delete $hash1{$t};}
    
39.                         else{$hash2{$tmp}=$t;}
    
40.                 }
    
41.                 $t="";
    
42.                 $tmp="";
    
43.                 }
    
44.         }
    
45. 
    
46. foreach my $p (keys %hash1) {
    
47.         my $key1=$1 if($p=~/.*\nname=word(\d+).*/s);
    
48.         $hash4{$key1}.=$p;
    
49.         $hash3{substr($_,0,index($_," "))}=$_ foreach (split /\n/,$hash1{$p});
    
50.         $hash4{$key1}.=$hash3{$_}."\n" foreach sort {$a<=>$b} (keys %hash3);
    
51.         $hash4{$key1}.="end\n\n";
    
52.         undef(%hash3);
    
53.         }
    
54. 
    
55. foreach (sort {$a<=>$b} (keys %hash4)) { print $fh3 $hash4{$_};}
    
56.        
    
57.        
    
58. close($fh1);
    
59. close($fh2);
    
60. close($fh3);

复制代码