help,如何实现此功能

genstone

有两个文件,每个文件分成两列(email,编码),只查第一列相同的,然后将第二列合并,用逗号分割
文件条目在10万级以上

在线等候
谢谢各位

flw

1. perl -e 'while( <> ){
   
2.     chomp;
   
3.     ($email, $code) = split( /,/, $_ );
   
4.     if ( exists($hash{$email}) ){
   
5.         $hash{$email} = [@{$hash{$email}}, $code];
   
6.     } else {
   
7.         $hash{$email} = [$code];
   
8.     }
   
9. }
   
10. foreach $key (keys %hash){
    
11.     print join( ',', @{$hash{$key}} ), "\n";
    
12. }' you_file.txt
    

复制代码

mocou

# cat a1
abc@yy.com 333
ccc@cc.com 444

# cat a2
bc@yy.com 322
ccc@cc.com 434

1. # awk 'NR<=FNR{a[$1]=$2}NR>FNR{if($1 in a)print $1,$2,a[$1]}' a1 a2
   
2. ccc@cc.com 434 444

复制代码

麻烦看一下站规，请写明标题跟要求。否则将被锁贴