请教列合并问题.

owwa

按首列合并.rar (10.32 KB, 下载次数: 10)

2014-11-15 21:17 上传

点击文件名下载附件

perl或awk实现均可，具体要求：

按文件file1和file2中的第1列为合并参考值，file1和file2各自含若干列；

file1和file2的第1列有重复，也有各自的不同值；

如果文件file1和file2中某行第1列相同，则直接合并该行的所有列，如merged中不带颜色的部分；

如果文件file1和file2中某行第1列不相同，则用“0”补齐，如merged中带颜色的部分；

说明：
1）第一行为标题行
2）file1和file2文件中可能有缺值（空白）

非常感谢！！！

旋转小马

#!/usr/bin/perl
use warnings;
use strict;
open IN,"file1"or die $!;
open PI,"file2"or die $!;
open OUT,">file3"or die $!;
my (%hash,%arry,%yy);
my ($nu,$ku)=('','');
while(<IN>){
        chomp;
        my @line=split/\t/,$_;
        $nu=@line;
        my $hk;
        for(my $i=1;$i<@line;$i++){
            $hk.="\t".$line[$i];
        }
        $hash{$line[0]}=$hk;
        $yy{$line[0]}=1;
}
close IN;
while(<PI>){
        chomp;
        my @line=split/\t/,$_;
        $ku=@line;
        my $ty;
        for(my $u=1;$u<@line;$u++){
            $ty.="\t".$line[$u];
        }
        $arry{$line[0]}=$ty;
        $yy{$line[0]}=1;
}
close PI;
foreach my $key(keys %yy){
        if($hash{$key} and $arry{$key}){
           print OUT "$key\t$hash{$key}\t$arry{$key}\n";
        }elsif(!$hash{$key} and $arry{$key}){
           print OUT "$key\t";
           for(my $i=1;$i<$nu;$i++){
               print OUT "0\t";
           }
           print OUT "$arry{$key}\n";
        }elsif($hash{$key} and !$arry{$key}){
           print OUT "$key\t$hash{$key}";
           for(my $p=1;$p<$ku;$p++){
               print OUT "\t0";
           }
           print OUT "\n";
        }
}
close OUT;

owwa

回复 2# 旋转小马

谢谢兄弟，测试结果无法达到需要的结果。

   

旋转小马

纳尼？？？我这测试的都好好的，你那有什么问题贴出来可否？？？回复 3# owwa


   

owwa

回复 4# 旋转小马


请见附件， 标题行处理好像也不对。谢谢了。  

旋转小马

稍做修改就行，没什么大的问题！
#!/usr/bin/perl
use warnings;
use strict;
open IN,"file1"or die $!;
open PI,"file2"or die $!;
open OUT,">file3.xls"or die $!;
my (%hash,%arry,%yy);
my ($nu,$ku)=('','');
my $hang1=<IN>;
chomp($hang1);
while(<IN>){
        chomp;
        my @line=split/\t/,$_;
        $nu=@line;
        my $hk=$line[1];
        for(my $i=2;$i<@line;$i++){
            $hk.="\t".$line[$i];
        }
        $hash{$line[0]}=$hk;
        $yy{$line[0]}=1;
}
close IN;
my $hang2=<PI>;
chomp($hang2);
while(<PI>){
        chomp;
        my @line=split/\t/,$_;
        $ku=@line;
        my $ty=$line[1];
        for(my $u=2;$u<@line;$u++){
            $ty.="\t".$line[$u];
        }
        $arry{$line[0]}=$ty;
        $yy{$line[0]}=1;
}
close PI;
print OUT "$hang1\t$hang2\n";
foreach my $key(keys %yy){
        if($hash{$key} and $arry{$key}){
           print OUT "$key\t$hash{$key}\t$arry{$key}\n";
        }elsif(!$hash{$key} and $arry{$key}){
           print OUT "$key\t";
           for(my $i=1;$i<$nu;$i++){
               print OUT "0\t";
           }
           print OUT "$arry{$key}\n";
        }elsif($hash{$key} and !$arry{$key}){
           print OUT "$key\t$hash{$key}";
           for(my $p=1;$p<$ku;$p++){
               print OUT "\t0";
           }
           print OUT "\n";
        }
}
close OUT;
回复 5# owwa


   

owwa

回复 6# 旋转小马


  谢谢兄弟，解决问题了，一个小问题就是标题行file1和file2之间多了一个空格。非常谢谢！