小数点位置の揃え

週末に Netnews がらみを集中させて書くのはどうなんだろうかと思いつつ、集中して書きます。(w
Netnewsawk のコミュニティの中では最も活発に議論されているところでもありますが、英語でしか読めないのと、そもそも nntp が使えるプロバイダも減少しているため、読めるところが必要であろうと思い、かなり斜め読みで私がまとめています。

Question

111.1111
2.222222
-33333.3
44444444

というものを小数点位置をそろえて以下のようにしたいということです。

      111.1111
        2.222222
   -33333.3
 44444444

Answer

{split($1,T,".");printf("%10d%s\n",T[1],2 in T ? "."T[2] : "")}