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

yinyuemi

回复 22# jiujiujiu338


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

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

jiujiujiu338

回复  jiujiujiu338


   假如我那段perl程序名叫s.pl，运行下面的代码（如果你是win，把单引号改成双引 ...
yinyuemi 发表于 2011-08-18 09:06

    不好意思啊，之前写的程序运行时不成功，出来一连串的Argument "13.081 11.386" isn't numeric in numeric comparison (<=>) 不知怎么修改，刚您写的这句话没有看懂，希望能够写的明了，额太笨了

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

复制代码

jhinux

这个非得用perl？

jiujiujiu338

回复 27# jhinux


   嗯呐，因为想学习下perl

jiujiujiu338

回复  jiujiujiu338
yinyuemi 发表于 2011-08-18 11:36

    多谢多谢，这个成功了，可是有个地方没有看懂，还请帮忙讲一下$hash2{substr($_,0,index($_,"\."))}=$_ foreach (split /\n/,$hash{$p});麻烦了，多谢

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. 
   

复制代码

jiujiujiu338

回复 30# yinyuemi


    哦，明白了，多谢了，我想解决这样一个问题，可是还是不会，还请帮忙看看

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

复制代码

jiujiujiu338

回复  jiujiujiu338
yinyuemi 发表于 2011-08-18 14:13

    太感谢了，我要好好学习学习这个~~~
这里边有个小问题：数字中有的是整数部分是一样的，小数部分不同，只按照整数部分排序不行，如file1中的一、二行数据
   11.1 81.84
     11.9 11.386
结果11.1 81.84没有了。
另外需要按照name的world1,world2,world3的顺序来

已经非常的感谢了