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)}'

出力例 $ iostat -x 30 avg-cpu: %user %nice %system %iowait %steal %idle 0.87 0.01 2.53 0.49 0.00 96.11 Device: rrqm/s wrqm/s r/s w/s rsec/s wsec/s avgrq-sz avgqu-sz await svctm %util sda 0.05 16.03 0.36 13.74 5.77 238.22 17.31 0.15 10.39 0…