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

最新推荐文章于 2024-03-23 13:21:14 发布

qq_21478261

最新推荐文章于 2024-03-23 13:21:14 发布

阅读量1.4k

点赞数

分类专栏： # 生物信息文章标签： perl

本文链接：https://blog.csdn.net/qq_21478261/article/details/105757849

版权

生物信息专栏收录该内容

133 篇文章 21 订阅 ¥49.90 ¥99.00

订阅专栏

超级会员免费看

这篇博客介绍了如何使用Perl脚本读取名为'sumfile'的输入文件，对其中'a'和'b'两行的数据进行求和，并计算每个数值在其所在行的占比，最后以格式化的形式输出结果。通过运行'perl sum1.pl'，可以看到每行的总和以及每个数占行总和的比例。

摘要由CSDN通过智能技术生成

输入文件：

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(<IN>){
        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