UNIX for Dummies Questions & Answers

For the sum try this one:

Code:

perl -F'\t' -lane'
	$rows[$.][$_] += $F[$_] for 0 .. $#F;
	close ARGV if eof;
	END { print join "\t", @{ $rows[$_] } for 1 .. $#rows }
  ' <your_files>

Thanks radoulov,

Mind explaining what I'm doing here i.e. what the code/syntax means?

Yes.
First the command line options (see perldoc perlrun for more detailed information).

-a - split the records using the tab character (just like AWK does).
-F'\t' - use the tab character as a field separator (just like the AWK's -F option)
-l - enables automatic line-ending processing.
-n - loop over the records automatically (somehow like AWK or rather like sed -n)
-e - Perl code follows.

The code.

Code:

$rows[$.][$_] += $F[$_] for 0 .. $#F;

Build a multidimensional array (@rows) looping over the fields summing their values.
The first dimension is the line number $. , the second one is the field number. After processing a record like this one:

Code:

1       2       3

the array will look like this:

Code:

% printf '%s\t%s\t%s\n' {1..3} |
  perl -MData::Dumper -F'\t' -lane'
    $rows[$.][$_] += $F[$_] for 0 .. $#F;
    END {print Dumper \@rows}
    '  
$VAR1 = [
          undef,
          [
            1,
            2,
            3
          ]
        ];

Code:

close ARGV if eof;

Reset $. at the end of every input file to make it work like AWK's FNR, otherwise it works like AWK's NR.

Code:

END { print join "\t", @{ $rows[$_] } for 1 .. $#rows }

At the end output the result.