forum.lissyara.su

Код: Выделить всё

remcomp% cat file.txt 
7 str1
9 str2
20 str3
26 str4
10 str3
15 str5
remcomp% cat script.sh 
#!/bin/sh

txt1=""
sum=""

cat file.txt | awk '{print $2,$1}' | sort |
(
        while read txt2 num
        do
                if [ -z "${sum}" ]; then
                        sum="$num"
                        txt1="$txt2"
                        continue
                fi

                if [ "${txt1}" = "${txt2}" ]; then
                        sum="`expr $sum + $num`"
                else
                        echo $sum $txt1
                        txt1="$txt2"
                        sum="$num"
                fi
        done

        if [ "${txt1}" != "${txt2}" ]; then
                echo $sum $txt1
        fi
)

remcomp% ./script.sh 
7 str1
9 str2
30 str3
26 str4
15 str5

Код: Выделить всё

while read txt2 num
        do
                if [ -z "${sum}" ]; then
                        sum="$num"
                        txt1="$txt2"
                        continue
                fi

                if [ "${txt1}" = "${txt2}" ]; then
                        sum="`expr $sum + $num`"
                else
                        echo $sum $txt1
                        txt1="$txt2"
                        sum="$num"
                fi
        done

Код: Выделить всё

perl -ne ' while ( $_ =~ /(.+)\s(.+)\n/smg ) {  if (exists $h->{$2} ) { $h->{$2}=$1+$h->{$2} } else { $h->{$2}=$1 }  }  END {  print $h->{$_}." ".$_."\n"  for keys %$h }' te.txt

Код: Выделить всё

9 str2
26 str4
7 str1
15 str5
30 str3