shell如何处理这类数据

harmful_001

shell新人，请教各位大牛，本人有如下数据：
qeri   22:46
aaaa   01:03
bbbb   56:23
ekjd   01:03
fqkl   56:23
fakq   56:23

这里想以第一列为依据，当数据相同时，合并各自的第一列数据，最后结果为

qeri             22:46
aaaa/ekjd        01:03
bbbb/fqkl/fakq   56:23

想了很久，都没能写出来，请教一下，谢谢！

kingway

1. function merge() {
   
2. declare -a result;
   
3. declare -a timeArray;
   
4. set i=1;
   
5. while read name time;
   
6. do
   
7.         index=${time##*:}${time%%:*}
   
8.         if [ -z "${result[$index]}" ]; then
   
9.                 result[$index]=$name;
   
10.                 timeArray[$i]=$time;
    
11.                 i=$((i+1));
    
12.         else
    
13.                 result[$index]=${result[$index]}"/"$name;
    
14.         fi
    
15. done;
    
16. for ((j = 1; j < i; j ++))
    
17. do
    
18.         time=${timeArray[$j]};
    
19.         index=${time##*:}${time%%:*};
    
20.         [ -z "${result[$index]}" ] || echo ${result[$index]} $time;
    
21. done;
    
22. }
    
23. 
    
24. merge << EOF
    
25. qeri 22:46
    
26. aaaa 01:03
    
27. bbbb 56:23
    
28. ekjd 01:03
    
29. fqkl 56:23
    
30. fakq 56:23
    
31. EOF
    

复制代码

tomgrean

传说中的人物用AWK。。。

1. awk '{
2.     if(length(a[$2]) > 0)
3.     {a[$2] = (a[$2] "/" $1);}
4.     else
5.         {a[$2] = $1;}
6. }
7. END{
8.     for(i in a){print a[i],i;}
9. }'  $YOURFILE

复制代码

overawe

这样？
awk '{a[$2]=a[$2]"/"$1}END{for(i in a)print a,i}' dataFile

xrjxrjxrj

你把第二列当成关键字，做个hash，把结果串起来，O(n)复杂度,比较快

chasye

perl:

1. 
   
2. while(<>){
   
3. my ($val, $key) = split ' ',$_;
   
4. push @{$hash{$key}}, $val;
   
5. }
   
6. 
   
7. foreach(keys %hash){
   
8.         my %tmp;
   
9.         my @outlist = grep !$tmp{$_}++, @{$hash{$_}};
   
10.         print join '/',@outlist;
    
11.         print " $_\n";
    
12. }
    

复制代码

harmful_001

Post by tomgrean;2055888
传说中的人物用AWK。。。

1. awk '{
   
2.     if(length(a[$2]) > 0)
   
3.     {a[$2] = (a[$2] "/" $1);}
   
4.     else
   
5.         {a[$2] = $1;}
   
6. }
   
7. END{
   
8.     for(i in a){print a[i],i;}
   
9. }'  $YOURFILE
   

复制代码

这个方法很巧妙，比我想的简单多了，学习了！谢谢！

harmful_001

Post by chasye;2055980
perl:

1. 
   
2. while(<>){
   
3. my ($val, $key) = split ' ',$_;
   
4. push @{$hash{$key}}, $val;
   
5. }
   
6. 
   
7. foreach(keys %hash){
   
8.         my %tmp;
   
9.         my @outlist = grep !$tmp{$_}++, @{$hash{$_}};
   
10.         print join '/',@outlist;
    
11.         print " $_\n";
    
12. }
    

复制代码

perl还没开始看，这里做个记号，以后回来看，也谢谢了！

kingway

awk 果然强大。。。向传说中的人物学习。。。