Perl练习04对每一行数据求和，每个数使用各自行和归一化

输入文件：

sumfile
a       1       2       3       4       5       6
b       1       2       3       4       5       6

目的：

分别求a，b行中所有数之和，每个数在该行所占比例格式化输出

脚本：

sum1.pl

#!/usr/bin/perl
use strict;
use warnings;

open IN,"./sumfile";
while(){
        chomp;
        my @t=split;
        my $sum=0;

        for my $i (1..5){
                $sum+=$t[$i];
        }
        print "$t[0]\t$sum\t";#求和

        for my $i (1..5){
                my $percent=$t[$i]/$sum;
                printf "%.2f\t","$percent";
        }
        print "\n";#换行