亚洲av成人无遮挡网站在线观看,少妇性bbb搡bbb爽爽爽,亚洲av日韩精品久久久久久,兔费看少妇性l交大片免费,无码少妇一区二区三区

  免費注冊 查看新帖 |

Chinaunix

  平臺 論壇 博客 文庫
最近訪問板塊 發(fā)新帖
查看: 3657 | 回復(fù): 6
打印 上一主題 下一主題

請教列合并問題. [復(fù)制鏈接]

論壇徽章:
0
跳轉(zhuǎn)到指定樓層
1 [收藏(0)] [報告]
發(fā)表于 2014-11-15 21:18 |只看該作者 |倒序瀏覽
按首列合并.rar (10.32 KB, 下載次數(shù): 11)

perl或awk實現(xiàn)均可,具體要求:

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

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

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

如果文件file1和file2中某行第1列不相同,則用“0”補齊,如merged中帶顏色的部分;

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

非常感謝。!

論壇徽章:
1
獅子座
日期:2014-02-25 09:46:33
2 [報告]
發(fā)表于 2014-11-20 20:35 |只看該作者
#!/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;

論壇徽章:
0
3 [報告]
發(fā)表于 2014-11-20 22:05 |只看該作者
回復(fù) 2# 旋轉(zhuǎn)小馬

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

   

論壇徽章:
1
獅子座
日期:2014-02-25 09:46:33
4 [報告]
發(fā)表于 2014-11-20 23:01 |只看該作者
納尼???我這測試的都好好的,你那有什么問題貼出來可否???回復(fù) 3# owwa


   

論壇徽章:
0
5 [報告]
發(fā)表于 2014-11-20 23:30 |只看該作者


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


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

論壇徽章:
1
獅子座
日期:2014-02-25 09:46:33
6 [報告]
發(fā)表于 2014-11-21 08:55 |只看該作者
稍做修改就行,沒什么大的問題!
#!/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


   

論壇徽章:
0
7 [報告]
發(fā)表于 2014-11-21 15:35 |只看該作者
回復(fù) 6# 旋轉(zhuǎn)小馬


  謝謝兄弟,解決問題了,一個小問題就是標(biāo)題行file1和file2之間多了一個空格。非常謝謝!
您需要登錄后才可以回帖 登錄 | 注冊

本版積分規(guī)則 發(fā)表回復(fù)

  

北京盛拓優(yōu)訊信息技術(shù)有限公司. 版權(quán)所有 京ICP備16024965號-6 北京市公安局海淀分局網(wǎng)監(jiān)中心備案編號:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年舉報專區(qū)
中國互聯(lián)網(wǎng)協(xié)會會員  聯(lián)系我們:huangweiwei@itpub.net
感謝所有關(guān)心和支持過ChinaUnix的朋友們 轉(zhuǎn)載本站內(nèi)容請注明原作者名及出處

清除 Cookies - ChinaUnix - Archiver - WAP - TOP