Search Results

awk '{i=1;A[FNR":"i]=$1
do {x=FNR":"(++i)
A[x]+=$i
}while(i<NF)
}END{f=1;do {
k=1;do{
y=(y?y OFS:z) A[f":"k]
}while(++k<=NF)
...

Try this little Perl script: #!/usr/bin/perl
chomp(@files=`find . -name "out.dat"`);
for $f (@files){
open F, "$f";
chomp(@rows=<F>);
for $r (0..$#rows){
@cells=split / /,$rows[$r];
...