Shell Programming and Scripting

echo $SHELL

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

#!/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";
}

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