有高手给展示下如何合并文件吗，谢谢

zhxftj

有大侠给展示个完整程序吗， 感激不尽。

file 1 :
name1 0.3
name2 0.5
name3 0.6

file 2:
name1 0.2
name4 0.5

file 3:

name1 0.2
name4 0.2
name5 0.4

name file:
name1
name2
name4

results:

names    file1 file2 file3
name1   0.3    0.2     0.2
name2   0.5       N     N
name4      N      N      0.2
解释，将name 文件里有的 从3个文件（file 1，2，3）中取出，再共同写入一个result file。

mcshell

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. my %hash;
   
5. my @filearr = qw{file1 file2 file3};
   
6. for my $file (@filearr){
   
7.     open FH,"$file.txt" or die "$!";
   
8.     map{$hash{$file}{(split)[0]}=(split)[1]}<FH>;
   
9.     close FH;
   
10. }
    
11. my @filename = qw{name1 name2 name4};
    
12. print "names ",join(" ",(sort keys %hash)),"\n";
    
13. for my $name (sort @filename){
    
14.     print "$name ";
    
15.     map{$hash{$_}{$name}?print $hash{$_}{$name}," ":print "N "}sort keys %hash;
    
16.     print "\n";
    
17. }

复制代码

回复 1# zhxftj


   

zhxftj

回复 2# 芙蓉女侠
真的是大侠耶，这么快，这么全 ，今天试下，再回来反馈下

呵呵 ，还写的很整洁呢 ，嗯 谢谢郭女侠 。。。。哦 不 芙蓉女侠。。。 ［拱手，拱手］


   

zhxftj

回复 3# mcshell


    这头像和 签名 牛的 。。。写的 这么短，我也抽空试下吧。。。


呵呵 ，心里话是高手呀 ，能写这么简洁

rubyish

也试下:

1. #!/usr/bin/perl
   
2. my @files = qw/name file1 file2 file3/;
   
3. my @f;
   
4. 
   
5. for my $i ( 0 .. $#files ) {
   
6.     open my $fh, $files[$i];
   
7.     $f[$i] = $i ? { map  split, <$fh> } : [ grep chomp, <$fh> ];
   
8. }
   
9. 
   
10. print join("\t", 'names', @files[1..$#files]), $/;
    
11. 
    
12. for my $n ( @{ shift @f } ) {
    
13.     print join("\t", $n, map $$_{$n} // 'N', @f), $/;
    
14. }

复制代码

zhxftj

回复 6# rubyish

试了，非常好，非常简洁
大道至简

高手呀。。。

   

zhxftj

回复 1# zhxftj
感谢所有人，嗯会研究下

第一个回复的最快，但好像有报错，我 还没debug呢，有空研究 下， 但感谢您快速完整的 回复

第二个做到了要求 很好
第三个最简洁，每行打印出的都有 tab隔开了，很整洁，，也是最短的，嗯谢谢

    谢谢大家

zhxftj

回复 6# rubyish
高手， 有个简单注释版的吗，本人智商有限，理解不了，只明白前3行＋ print那行。。。

    10分钟后。。。现在看懂了 前5行，＋最后 一行。。。

也就是说 只有1/3 不懂了 ，呵呵


print那行最后 那个是啥意思呀 “$／”
第7行，
    $f[$i] = $i ? { map  split, <$fh> } : [ grep chomp, <$fh> ];

和 12，13行。不懂呢 。。。

for my $n ( @{ shift @f } ) {
    print join("\t", $n, map $$_{$n} // 'N', @f), $/;

yestreenstars

来个awk的~

1. awk 'BEGIN{printf "%s\t%s\t%s\t%s\n","names","file1","file2","file3"}{a[$1,ARGIND]=$2}ARGIND==4{printf $0"\t";for(i=1;i<3;i++)printf a[$0,i]!=""?a[$0,i]"\t":"N\t";print a[$0,3]!=""?a[$0,3]"\t":"N\t"}'

复制代码