need_help -どのようなシェルを使用しているか？その結果から詳細

echo $SHELL

してみてください/ binに/ bashの代わりに/ bin / shに。私は、プレーンshには常に" ..のような高度な"ものがサポートされて忘れてしまうんだため息をつく.. 配列..

> cat file167
FIRST abc(3) def(13) fgh(1) ijk(6) abc(2)
SECOND dfe(10) abc(4) hij(19) tlm(1) hij(1) hub(10) abc(1) fed(3)
OTHERS hij(10) mok(4) bub(19) hij(1) abc(2) abc(15) abc(1) hij(3)

> cat sort167.sh
#!/usr/bin/bash

while read header data
   do
#   echo $header
#   echo $data
    revdata=`echo $data | tr " " "\n" | sort -rn +0.4 | tr "\n" " "`

    echo $header $revdata

done <file167

> sort167.sh
FIRST def(13) ijk(6) abc(3) abc(2) fgh(1)
SECOND hij(19) hub(10) dfe(10) abc(4) fed(3) tlm(1) hij(1) abc(1)
OTHERS bub(19) abc(15) hij(10) mok(4) hij(3) abc(2) hij(1) abc(1)

〜とともに Perlの：

perl -lane'
    print join " ", shift @F, sort {
        ($aa) = $a =~ /(\d+)/;
        ($bb) = $b =~ /(\d+)/;
        $bb <=> $aa
      } @F
  ' infile

こんにちは、私は思う perlの 右方向に、簡単に解決する必要があります。

#!/usr/bin/perl
sub sub_sort{
	my @t1=split("[(|)]",$_[0]);
	my @t2=split("[(|)]",$_[1]);
	if($t1[1] == $t2[1]){
		return $t1[0] cmp $t2[0];
	}
	else{
		return $t2[1] <=> $t1[1];
	}
}
open FH,"<a.txt";
while(<FH>){
	chomp;
	my @temp=split(" ",$_);
	print $temp[0]," ", join " ",sort { sub_sort($a,$b) } @temp[1..$#temp];
	print "\n";
}

ニースキャッチ summer_cherry、私は、営業利益を2回（最初の数値をascii/utf8 ）ソートしたいので、私のコードを変更する必要があります気付かなかった：

perl -lane'
    print join " ", shift @F, sort {
        ($aa) = $a =~ /(\d+)/;
        ($bb) = $b =~ /(\d+)/;
        $bb <=> $aa || $a cmp $b
      } @F
  ' infile