unix下对文件的列值排序比较问题

blackold

回复 20# amoshaochen


    晕。
    原来是生成表头啊。用BEGIN或者手动修改。

amoshaochen

.。。。
我用过BEGIN了。结果又生成类似的东西，仍然是一个数字，不是我想要的列名
额 。。。
我再看看了

cxfcxf

你们别这样 我还是没看懂啊

楼主 按照你一楼写的 输出的结果应该是
49371 2 29624 54
49371 29 29624 54
49371 61 29624 54
49372 17 29624 31
49372 2 29624 31
49373 2 29624 63
49373 2 29624 63
49373 76 29624 63
49373 78 29624 63

这样啊....

一会儿又说
78 = 3
73 = 2..
你不是说 2 4 相同的话 就把该行第二列换成2么....


完全不知道你要的...

这是我的代码

1. 
   
2. #!/usr/bin/perl -w
   
3. 
   
4. use strict;
   
5. 
   
6. 
   
7. my %hash;
   
8. while (<DATA>) {
   
9.     chomp;
   
10.     my @array = split;
    
11.     $array[1] = 2 if ($array[1] == $array[3]);
    
12.     my $key = "$array[0]$array[2] $array[1]";
    
13.     push @{$hash{$key}}, "$array[0] $array[1] $array[2] $array[3]";
    
14. }
    
15. 
    
16. print "row1 row2 row3 row4\n";
    
17. foreach my $key (sort keys %hash) {
    
18.     foreach (@{$hash{$key}}) {
    
19.         print "$_\n";
    
20.     }
    
21. }
    
22. 
    
23. 
    
24. __DATA__
    
25. 49373        78        29624        63
    
26. 49373        76        29624        63
    
27. 49373        63        29624        63
    
28. 49373        2         29624        63
    
29. 49372        31        29624        31
    
30. 49372        17        29624        31
    
31. 49371        61        29624        54
    
32. 49371        54        29624        54
    
33. 49371        29        29624        54
    

复制代码

nuclearxin

看懂了 但是搞不定啊。
第一步 2 4 column 相等的 置0
第二部 1 column 相同的基础上 排序（没有排第0位的）。
第三部  2 column 的值被 排序顺序替换

perl 搞不定老出错

nuclearxin

。。。。。。。
明白了
主值的顺序还要嵌入到排序中nnd
第二部和第三部 返货来

cxfcxf

对 你把第一和第三列  空格 第二列 嵌入到key里面

然后让他排序

他默认是从左到右的 就是以key来拍
1+3 空格2
1+3 一样的 就会自动以2来排列 不过我还是没看懂楼主要什么

ywlscpl

1. awk 'NR==FNR{if ($2!=$4) a[$1" "$3]++}NR>FNR{if (FNR==1) {print;next}if ($2!=$4) $2=a[$1" "$3]--;else $2=0;print}' file file

复制代码

nuclearxin

非常复杂的 弄出来了 。。呵呵

1. 
   
2. #!/usr/bin/perl -w
   
3. my (@temp,@subtemp,@t,$ref1,%d,$aa,$bb);
   
4. 
   
5. sub so {
   
6.         (split /[ \t]+/,$b)[1] <=> (split /[ \t]+/,$a)[1];
   
7.         }
   
8. sub sortn {
   
9.         $b <=> $a;
   
10.         }
    
11. 
    
12. sub sortid{
    
13.         @subtemp = sort so @{$_[0]};
    
14.         $bb=10000;
    
15.         for($i=0;$i<=$#subtemp;$i++){
    
16.                 @t = split /[ \t]+/,$subtemp[$i];
    
17.                 $aa = @subtemp - $i;
    
18.                 $bb = $aa if($t[1] == $t[3]);
    
19.                 $subtemp[$i] =~ s/(^\d+\D+)(\d+)(.*)/$1$aa$3/  ;
    
20.                 }
    
21.         for($i=0;$i<=$#subtemp;$i++){
    
22.                 @t = split /[ \t]+/,$subtemp[$i];
    
23.                 $subtemp[$i] =~ s/(^\d+\D)(\d+)(.*)/${1}0$3/ if ($t[1] == $bb);
    
24.                 if ($t[1] > $bb){
    
25.                 $t[1]--;
    
26.                 $subtemp[$i] =~ s/(^\d+\D)(\d+)(.*)/${1}$t[1]$3/;
    
27.                         }
    
28.                 }
    
29.         }
    
30. 
    
31. while (<>){
    
32.         chomp;
    
33.         my @line = split /[ \t]+/,$_;
    
34.         $d{$line[0]} .= "@line \n";
    
35.         }
    
36. 
    
37. foreach (sort sortn keys %d){
    
38.         @temp = split /\n/,$d{$_};
    
39.         $ref1 = \@temp;
    
40.         sortid $ref1;
    
41.         foreach (@subtemp){
    
42.                 print $_,"\n";
    
43.                 }
    
44.         }
    

复制代码

nuclearxin

好多垃圾代码 谁帮忙 删除删除

nuclearxin

这个省内存

1. 
   
2. #!/usr/bin/perl -w
   
3. use strict;
   
4. my (@temp,@subtemp,@t,$ref1,$aa,$bb,$tt);
   
5. $ref1 = \@temp;
   
6. $tt = "";
   
7. sub so {
   
8.         (split /[ \t]+/,$b)[1] <=> (split /[ \t]+/,$a)[1];
   
9.         }
   
10. 
    
11. sub sortid{
    
12.         @subtemp = sort so @{$_[0]};
    
13.         $bb=1000;
    
14.         for(my $i=0;$i<=$#subtemp;$i++){
    
15.                 @t = split /[ \t]+/,$subtemp[$i];
    
16.                 $aa = @subtemp - $i;
    
17.                 $bb = $aa if($t[1] == $t[3]);
    
18.                 $subtemp[$i] =~ s/(^\d+\D+)(\d+)(.*)/$1$aa$3/  ;
    
19.                 }
    
20.         for(my $i=0;$i<=$#subtemp;$i++){
    
21.                 @t = split /[ \t]+/,$subtemp[$i];
    
22.                 $subtemp[$i] =~ s/(^\d+\D)(\d+)(.*)/${1}0$3/ if ($t[1] == $bb);
    
23.                 if ($t[1] > $bb){
    
24.                 $t[1]--;
    
25.                 $subtemp[$i] =~ s/(^\d+\D)(\d+)(.*)/${1}$t[1]$3/;
    
26.                         }
    
27.                 }
    
28.         }
    
29. 
    
30. while (<>){
    
31.         chomp;
    
32.         my @line = split /[ \t]+/,$_;
    
33.         if($tt eq ""){
    
34.                 push @temp,"@line" ;
    
35.                 $tt = $line[0] ;
    
36.                 next;
    
37.                 }
    
38. 
    
39.         if($line[0] != $tt){
    
40.                 sortid $ref1;
    
41.                 foreach (@subtemp){
    
42.                 print $_,"\n";
    
43.                         }
    
44.                 @temp =();
    
45.                 push @temp,"@line";
    
46.                 $tt = $line[0];
    
47.                 next;
    
48.                 }
    
49.         push @temp,"@line" ;
    
50.         $tt = $line[0] ;
    
51. 
    
52.         }
    
53. sortid $ref1;
    
54. foreach (@subtemp){
    
55.         print $_,"\n";
    
56.            }
    
57. 
    

复制代码