Help for this page

Select Code to Download

Select or download this

# win double quotes!

perl -F"/\-|\s/" -lane "$m{$F[0]}[0]++;$m{$F[0]}[1]+=$F[2]}{map{print 
+join' ',$_,$m{$_}[1]/$m{$_}[0]}sort keys %m" xp.out