一个很有难度的文件处理，同志们帮忙哈

yiyouzhou

一个文件，如下：下载线前为名称，AB为类型
abc_A  56
abd_A 33
abc_B 34
ed_B 89
abd_B 44
ed_A 66
iof_A 57
...........
--------------------
怎样写命令处理使成两大列如：以名称做判断分行
abc_A  56 abc_B 34
abd_A 33 abd_B 44
ed_B 89 ed_A 66 （不用考虑A、B先后）
iof_A 57 (还有没区配的)
...........


好像很难的样子，有没达人指导下，先谢了！

[ 本帖最后由 yiyouzhou 于 2009-11-11 14:08 编辑 ]

ywlscpl

awk -F_ '{a[$1]=(a[$1]?a[$1]" ":"")$0}END{for (j in a) print a[j]}' file

[ 本帖最后由 ywlscpl 于 2009-11-11 14:14 编辑 ]

blackold

看不懂。

1. sort urfile|paste -sd '\t\n'

复制代码

yiyouzhou

原帖由 ywlscpl 于 2009-11-11 14:11 发表
awk -F_ '{a[$1]=(a[$1]?a[$1]" ":"")$0}END{for (j in a) print a[j]}' file

嗯 可以的 谢谢了。
就是有点看不懂 呵

liaosnet

嗯~想法好~

NTRY

原帖由 ywlscpl 于 2009-11-11 14:11 发表
awk -F_ '{a[$1]=(a[$1]?a[$1]" ":"")$0}END{for (j in a) print a[j]}' file

说说思路？

liying_gg

你的思路太开阔了吧。佩服佩服！

blackold

associative array 的基本用法啊。

windpray

明白了，佩服

[ 本帖最后由 windpray 于 2009-11-11 22:31 编辑 ]

cxfcxf

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. use strict;
   
5. use warnings;
   
6. 
   
7. my %hash;
   
8. while (<DATA>) {
   
9.     chomp;
   
10.     my @array = split /\_/;
    
11.     push @{$hash{$array[0]}}, $array[1];
    
12. }
    
13. 
    
14. foreach (keys %hash) {
    
15.     foreach my $elt (0 .. $#{$hash{$_}}) {
    
16.         print "$_\_@{$hash{$_}}[$elt]\ \ \ ";
    
17.     }
    
18.     print "\n";
    
19. }
    
20. 
    
21. 
    
22. __DATA__
    
23. abc_A  56
    
24. abd_A 33
    
25. abc_B 34
    
26. ed_B 89
    
27. abd_B 44
    
28. ed_A 66
    
29. iof_A 57
    

复制代码