shell排序

blackold

回复 60# expert1


    如果说有的话，就是awk进行的是字符串比较，而不是数值比较，会出现：
"10.05" < "6.01"的情况。

expert1

回复 61# blackold


    那数字出现了10.05,3.07这样的，貌似搞不掂吧？

blackold

回复 62# expert1


    方法肯定有的。

1. awk '{for(i=1;i<=NF;i++){t=$i;sub(/.*:/,"",t);a[t","i]=$i;b[t","i]=t};n=asort(b);for(i=1;i<=n;i++)for(j=1;j<=NF;j++) if(b[i]","j in a) {printf a[b[i]","j]" ";delete a[b[i]","j]}print "";delete a;delete b}' urfile

复制代码

这个可以按数值排序。只是排序，并没有求和，要求和，稍修改即可。

expert1

回复 63# blackold


    咋整合一起，偶学习学习？

magnet2008

use strict;
use warnings;
while ( my $line = <DATA> ) {
        chomp $line;
        my @lines=split('\s+',$line);
        my %LINE_HASH;
        foreach my $str (@lines) {
                $str=~m#(\w).*)#;
                $LINE_HASH{$1}=$2;
        }
        my $sum=0;
        my @strs;
        foreach my $key (sort {$LINE_HASH{$a} <=> $LINE_HASH{$b}} keys %LINE_HASH) {
                $sum+=$LINE_HASH{$key};
                if($sum>0.5) {
                        $sum-=$LINE_HASH{$key};
                        last;
                }
                push @strs,$key;
        }
        print "$sum\t",scalar @strs,"\t";
        foreach my $str (@strs) {
                print "$strLINE_HASH{$str}\t"
        }
        print "\n";
}

__DATA__
a:0.13 b:0.23 c:0.05 d:0.45 e:0.07
p:0.13 q:0.20 r:0.13 s:0.33 t:0.23
h:0.08 g:0.11 r:0.05 y:0.45 s:0.24
g:0.01 q:0.02 r:0.03 s:0.04 t:0.05
g:0.21 q:0.22 r:0.03 s:0.04 t:0.05
结果
0.48        4        c:0.05        e:0.07        a:0.13        b:0.23       
0.46        3        p:0.13        r:0.13        q:0.20       
0.48        4        r:0.05        h:0.08        g:0.11        s:0.24       
0.15        5        g:0.01        q:0.02        r:0.03        s:0.04        t:0.05       
0.33        4        r:0.03        s:0.04        t:0.05        g:0.21       
这个应该满足吧

blackold

回复 64# expert1


    我晕，就是累加求和啊。

1. $ awk '{s=0;for(i=1;i<=NF;i++){t=$i;sub(/.*:/,"",t);a[t","i]=$i;b[t","i]=t};n=asort(b);for(i=1;i<=n;i++)for(j=1;j<=NF;j++){t=b[i]","j;if(t in a) {s+=b[i];if(s<0.5)printf a[t]" ";delete a[t]}}print "";delete a;delete b}' urfile

复制代码

里面没有加break，自己优化吧。

blackold

这种问题还是用perl比较好，写个超难看的
scr.pl

#! /bin/perl

use warnings;
use strict;

while (<>) {
    chomp;
    my @field = split;
    my $s=0;
    @field = sort { (substr $a, (index $a,":")+1) <=> (substr $b, (index $b,":")+1) } @field;
    foreach (@field) {
        $s += substr $_, (index $_,":")+1;
        if($s<0.5) {
            print $_ . " ";
        } else {
            last;
        }
    }
    print "\n";
}

$ perl scr.pl urfile

expert1

回复 66# blackold


    呵呵，不需要break吧

blackold

回复 68# expert1


    看你了，条件满足即退出，没有必要再循环下去了，做无用功。

expert1

回复 69# blackold


    话说这个还真的比较难，╮(╯▽╰)╭。