iostat の出力結果の集計に使った Perl ワンライナー

ls *.out|xargs -n1 perl -lane 'if(/^sdk/){for($i=1;$i<=$#F;$i++){$t[$i-1]+=$F[$i]};$c++};END{print qq/$ARGV\t/.join(qq/\t/,map{sprintf(qq/%.2f/,$_/$c)}@t)}'