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

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);
    

复制代码

jiujiujiu338

回复 11# yinyuemi


    多谢多谢，我好好看看呐

jiujiujiu338

两个文件file1和file2合并为file3，大家帮忙看看怎么合并啊

file1为
word
word11
word12
word13
12.1 11
42.22 6.5
word0

file2为
word
word11
word12
word13
9.76 12
76.6 88
word0

合并为file3
word
word11
word12
word13
9.76 12
12.1 11
42.22 6.5
76.6 88
word0

数字合并，并且按照顺序，谢谢路过的各位了

alabos

1. #!/usr/bin/perl
   
2. 
   
3. use Tie::File;
   
4. 
   
5. open my $fh,'>','file_3.txt' || die "$!\n";
   
6. 
   
7. tie @file_1,'Tie::File','file_1.txt' || die "$!";
   
8. tie @file_2,'Tie::File','file_2.txt' || die "$!";
   
9. 
   
10. foreach ( 0 .. $#file_1)
    
11. {
    
12.     print "$_\t$file_1[$_]\n";
    
13. 
    
14.     if ($file_1[$_] eq $file_2[$_])
    
15.     {
    
16.         print $fh $file_1[$_],"\n";
    
17.     }
    
18.     else
    
19.     {
    
20.         print $fh $file_1[$_],"\n";
    
21.         print $fh $file_2[$_],"\n";
    
22.     }
    
23. }
    
24. 
    
25. 
    
26. 
    

复制代码

你要合并的2个文件的行数是一样的吧，不然也不会存在你说的相同的问题了，试试这个代码吧！

zhlong8

需求都没搞清楚呢就这么多抢生意的{:3_183:}

jiujiujiu338

回复 16# alabos


    多谢多谢啦，小妹刚学习perl不久，有点吃力，多谢帮助，比只看书强多了

zhlong8

回复  alabos


    多谢多谢啦，小妹刚学习perl不久，有点吃力，多谢帮助，比只看书强多了
jiujiujiu338 发表于 2011-08-17 21:21

    你不会是搞基因的吧 {:3_184:}

jiujiujiu338

回复 18# zhlong8


    算是吧，版主

zhlong8

回复  zhlong8


    算是吧，版主
jiujiujiu338 发表于 2011-08-17 21:37

    那你多介绍点美女来，这里很多弟兄愿意义务劳动的 {:3_187:}

jiujiujiu338

回复 20# zhlong8


    额......版主不能帮助一下嘛