文本處理問題

jayeeliu

如何將

1. a 1
   
2. b 2
   
3. c 3
   
4. a 2
   
5. c 1
   
6. b 5
   
7. a 9
   
8. b 10
   
9. c 15

復(fù)制代碼

轉(zhuǎn)換成

1. a 1,2,9
   
2. b 2,5,10
   
3. c 3,1,15

復(fù)制代碼

?

那些數(shù)字的順序無所謂。

lkk2003rty

awk

1. awk '{a[$1]=a[$1]","$2} END{for(cnt in a) print cnt,substr(a[cnt],2)}' file

復(fù)制代碼

jayeeliu

回復(fù) 2# lkk2003rty


多謝！

yidifenghong

cat test.txt |sort -n|xargs -l3|sed -e 's/ [a-z] /,/g'
結(jié)果以下，不知道可不可以，呵呵
a 1,2,9
b 10,2,5
c 1,15,3

李尋歡92

回復(fù) 1# jayeeliu

1. #!/usr/bin/perl  -w
   
2. use strict;
   
3. open FILE_1,"<tmp_1" or die "Can not open file tmp_1:$!";
   
4. my %hash;
   
5. while(<FILE_1>) {
   
6.     chomp;
   
7.     my ($f,$s) = split;
   
8.     push @{$hash{$f}},$s;
   
9. }
   
10. for (keys %hash) {
    
11.     print "$_ ",join ",",@{$hash{$_}};
    
12.     print "\n";
    
13. }
    

復(fù)制代碼

jayeeliu

多謝樓上各位兄弟，2樓和4樓的兄弟地方法我都試了，效果沒有問題。

但有一點(diǎn)是我這個(gè)處理的文件有300多M，處理過程中awk占用內(nèi)存非常多。

我再試試5樓和6樓的方法，多謝大家，多謝。