如何对39列数据按列求和

lijie_perl

问题描述：

现有一个文件(12067行)，每一行都是39列，每一列的数都是0或者1，各列之间tab键分开。(示例文件给出了部分数据)。


问题处理：

我想对每一列累加求和，最后输出和值。


我的想法：

设置39个数组@arr1...@ar39, 然后逐行读入数据依次赋给39个数组，最后对每一个数组求和。

感觉想法有点stupid, 而且我不知道怎样一下子定义39个数组，一个个写太麻烦了吧~，而且这样是不是很占内存呀~

希望大家提供给我一些解决思路和办法.

cobrawgl

你直接用  excel 求和不行吗？

twilightagain

1. #!/usr/bin/perl -w
   
2. use 5.010;
   
3. 
   
4. my @res;
   
5. while (<>) {
   
6.    next if /^\s*$/;
   
7.    my @line = split;
   
8.    for (0 .. $#line) {
   
9.       $res[$_] += $line[$_];
   
10.    }
    
11. }
    
12. 
    
13. for (0 .. $#res) {
    
14.    say $_+1, ": $res[$_]";
    
15. }
    

复制代码

wxlfh

1. open my $fh, "<", "your_file";
   
2. my @data;
   
3. while my $line (<$fh>) {
   
4.     my @lines = split /\t/, $line;
   
5.     $data[$_] += $lines[$_] for 0..$#lines;
   
6. }
   
7. close $fh;
   
8. print "@data";

复制代码

lijie_perl

回复 2# cobrawgl


谢谢提醒，这个我曾经也想过~
不过我的问题有一步可能没太描述清楚，其实不是对全部，只是某些行(具体那些行由算法控制，所以我没有说)~~
同时一并谢谢3楼，4楼的帮忙~

wxlfh

回复 5# lijie_perl

1. open my $fh, "<", "your_file";
   
2. my @data;
   
3. my $flag = sub {};  #判断函数
   
4. while my $line (<$fh>) {
   
5.     next if $flag->($line);  #如果不需要统计
   
6.     my @lines = split /\t/, $line;
   
7.     $data[$_] += $lines[$_] for 0..$#lines;
   
8. }
   
9. close $fh;
   
10. print "@data";

复制代码

tangxc10

请问 $flag=sub {}是怎么来判断哪些是需要求和统计的？
谢谢回复 4# wxlfh