請教列合并問題.

owwa

按首列合并.rar (10.32 KB, 下載次數(shù): 11)

2014-11-15 21:17 上傳

點(diǎn)擊文件名下載附件

perl或awk實(shí)現(xiàn)均可，具體要求：

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

file1和file2的第1列有重復(fù)，也有各自的不同值；

如果文件file1和file2中某行第1列相同，則直接合并該行的所有列，如merged中不帶顏色的部分；

如果文件file1和file2中某行第1列不相同，則用“0”補(bǔ)齊，如merged中帶顏色的部分；

說明：
1）第一行為標(biāo)題行
2）file1和file2文件中可能有缺值（空白）

非常感謝！��！

旋轉(zhuǎn)小馬

#!/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

回復(fù) 2# 旋轉(zhuǎn)小馬

謝謝兄弟，測試結(jié)果無法達(dá)到需要的結(jié)果。

   

旋轉(zhuǎn)小馬

納尼？？？我這測試的都好好的，你那有什么問題貼出來可否？？？回復(fù) 3# owwa


   

owwa

回復(fù) 4# 旋轉(zhuǎn)小馬


請見附件， 標(biāo)題行處理好像也不對(duì)。謝謝了。  

旋轉(zhuǎn)小馬

稍做修改就行，沒什么大的問題！
#!/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;
回復(fù) 5# owwa


   

owwa

回復(fù) 6# 旋轉(zhuǎn)小馬


  謝謝兄弟，解決問題了，一個(gè)小問題就是標(biāo)題行file1和file2之間多了一個(gè)空格。非常謝謝！