Shell Programming and Scripting

1.2.3.4->2.4.2.4 a(10) b(20) c(30)
1.2.3.4->2.9.2.4 a(10) c(20)
2.3.4.3->3.6.3.2 b(40) d(50) c(20)
2.3.4.3->3.9.0.2 a(40) e(50) c(20)
1.2.3.4->3.4.2.4 a(10) c(30)
6.2.3.4->2.4.2.5 c(10)
.
.
.
.

awk '{for (i=2;i<=NF;i++) {if ($i~/^c/) {t=gensub(/^c\((.*)\)$/,"\\1","g",$i);a[t]++;s=s+t}}}
END {for ( i in a) printf "(%s, %.4f)\n",i,i*a[i]/s |"sort -n"}' infile

(10, 0.0769 )
(20, 0.4615 )
(30, 0.4615 )

(10, 0.0769), (20, 4615) , (30, 0.4615) ,... till end of file

 awk '{for (i=2;i<=NF;i++) {if ($i~/^c/) {t=gensub(/^c\((.*)\)$/,"\\1","g",$i);a[t]++;s=s+t}}}
END {for ( i in a) printf "(%s, %.4f)\n",i,i*a[i]/s |"sort -n"}' infile |tr "\n" ", "

(10, 0.0769),(20, 0.4615),(30, 0.4615),

while(<DATA>){
  if(/c\((\d+)\)/){
   $hash{$1}+=1;
   $cnt+=$1;
  }
}
foreach my $key (keys %hash){
  print "($key,",($key*$hash{$key})/$cnt,")\n";
}
__DATA__
1.2.3.4->2.4.2.4 a(10) b(20) c(30)
1.2.3.4->2.9.2.4 a(10) c(20)
2.3.4.3->3.6.3.2 b(40) d(50) c(20)
2.3.4.3->3.9.0.2 a(40) e(50) c(20)
1.2.3.4->3.4.2.4 a(10) c(30)
6.2.3.4->2.4.2.5 c(10)

while(<DATA>){
  if(/c\((\d+)\)/){
   $hash{$1}+=1;
   $cnt+=$1;
  }
}
foreach my $key (keys %hash){
  printf "(%s, %.4f), ", $key,($key*$hash{$key})/$cnt;
}
__DATA__
1.2.3.4->2.4.2.4 a(10) b(20) c(30)
1.2.3.4->2.9.2.4 a(10) c(20)
2.3.4.3->3.6.3.2 b(40) d(50) c(20)
2.3.4.3->3.9.0.2 a(40) e(50) c(20)
1.2.3.4->3.4.2.4 a(10) c(30)
6.2.3.4->2.4.2.5 c(10)

(30, 0.4615), (10, 0.0769), (20, 0.4615),