[완료]csv 포맷 cell끼리 계산하는 방법

#!/bin/sh
 
if [ $# -ne 4 ] ; then
        echo Error : invalid args..
        exit 1
fi
 
FF=$1   # left operand file
OP=$2   # operator
FT=$3   # right operand file
NF=$4   # number of field
 
if [ ! -f $FF -o ! -f $FT ] ; then
        echo file not found..
        exit 1
fi
 
exec 3<$FF
exec 4<$FT
 
declare -a line1
declare -a line2
 
while true ; do
        out=0
        read -a <&3 line1
        [ $? -ne 0 ] && let "out++"
        read -a <&4 line2
        [ $? -ne 0 ] && let "out++"
 
        [ $out -eq 2 ] && break
 
        for ((i=0; i<NF; i++)) ; do
                if [ -z "$line1" ] ; then
                        R=${line2[$i]}
                elif [ -z "$line2" ] ; then
                        R=${line1[$i]}
                else
                        R=`echo "${line1[$i]} $OP ${line2[i]}" | bc`
                fi
                echo -ne "$R\t"
        done
        echo ""
done
 
3<&-
4<&-
 
exit 0;

$ cat a
1       2       3
4       5       6
7       8       9
10      11      12
$ cat b
7       8       9
10      11      12
13      14      15
 
$ ./run.sh a + b 3
8       10      12
14      16      18
20      22      24
10      11      12
 
$ ./run.sh a \* b 3
7       16      27
40      55      72
91      112     135
10      11      12

$ paste A.csv B.csv | perl -alpe '$_="@{[map$F[$_]+$F[$_+@F/2],0..$#F/2]}"'
3 5 7
9 11 13

$ paste A.csv B.csv | perl -alpe '$_="@{[map$F[$_]*$F[$_+@F/2],0..$#F/2]}"'
2 6 12
20 30 42

use List::MoreUtils qw(pairwise);
 
my ($file1, $op, $file2) = @ARGV;
 
open my $fh1, '<', $file1 or die;
open my $fh2, '<', $file2 or die;
 
while (($l1=<$fh1>) && ($l2=<$fh2>)) {
 
    my @l1 = split("\t", $l1);
    my @l2 = split("\t", $l2);
 
    print
        join "\t",
        (pairwise { eval"\$a $op \$b" } @l1, @l2),
        "\n";
}

$ perl csv.pl   A.csv + B.csv
$ perl csv.pl   A.csv - B.csv
$ perl csv.pl   A.csv * B.csv
$ perl csv.pl   A.csv / B.csv

require 'csv'
a,b = [ARGV[0],ARGV[2]].map do |f|                                                       
  CSV.open(f,'r','   ').to_a.map{|i| i.map{|j| j.to_i}}
end
 
mix = a.zip(b).map{|i,j|i.zip j}
r =  mix.map{|i| i.map{|j| j.inject{|m,n| eval "m #{ARGV[1]} n"}}}
puts r.map{|i| i.join "   "}.join("\n")
 

$ruby run.rb a.csv + b.csv
$ruby run.rb a.csv - b.csv
$ruby run.rb a.csv / b.csv
$ruby run.rb a.csv "*" b.csv

#!/usr/bin/ruby
# ruby 1.9.1 에서 테스트 했음
 
# 할일 (TO DO)
# 우선 순위, 사칙 연산 파서
# for 문을 사용하여 column 을 현행 3에서 n 으로 확장할 것.
# 예외처리.
 
# SSV : Space Separated Value
class SSV
    def initialize(file)
        @f = File.open(file)
    end
 
    # op 연산자, operand 피연산자
    def compute(op, operand)
        # if 를 수식자(modifier)로 사용하면 코드가 더 간결해질 수 있지만
        # 생각하기 귀찮아서 Copy & Paste 신공으로 처리
        if operand.class == SSV
            while(row1 = @f.gets and row2 = operand.gets)
                row1 = row1.split
                row2 = row2.split
                @sum = [0,0,0]
 
                cmd = %Q[
                    @sum[0] = row1[0].to_f #{op} row2[0].to_i
                    @sum[1] = row1[1].to_f #{op} row2[1].to_i
                    @sum[2] = row1[2].to_f #{op} row2[2].to_i
                ]
                eval(cmd)
                puts "#{@sum[0]} #{@sum[1]} #{@sum[2]}"
            end # end of while
        else
            while(row1 = @f.gets)
                row1 = row1.split
                @sum = [0,0,0]
 
                cmd = %Q[
                    @sum[0] = row1[0].to_f #{op} operand.to_f
                    @sum[1] = row1[1].to_f #{op} operand.to_f
                    @sum[2] = row1[2].to_f #{op} operand.to_f
                ]
                eval(cmd)
                puts "#{@sum[0]} #{@sum[1]} #{@sum[2]}"
            end # end of while
        end # end of if
    end # end of compute
 
    def gets
        @f.gets
    end
end
 
if __FILE__ == $0
    if (ARGV.length != 3) or
        ((ARGV[1] != '+') and (ARGV[1] != '-') and
        (ARGV[1] != '*') and (ARGV[1] != '/'))
        puts "Usage: $ ruby csv1 op csv2"
        puts "$ ruby csv1 + csv2"
        puts "$ ruby csv1 - csv2"
        puts "$ ruby csv1 \\* csv2"
        puts "$ ruby csv1 / csv2"
        puts "$ ruby csv1 + 88"
        puts "$ ruby csv1 - 12.1"
        puts "$ ruby csv1 \\* 5"
        puts "$ ruby csv1 / 9.1"
        exit
    end
 
    ssv1 = SSV.new(ARGV[0])
    op = ARGV[1]
 
    # 내공이 부족한 관계로
    # 파일 이름이 숫자로 시작하면 안 됨.
    # 숫자 뒤에는 영문자 등이 오면 안 됨.
    if ARGV[2] =~ /^[0-9]/
        ssv1.compute(op, ARGV[2])
    else
        ssv2 = SSV.new(ARGV[2])
        ssv1.compute(op, ssv2)
    end
end

import sys
for l1, l2 in zip(file(sys.argv[1]), file(sys.argv[2])):
    print '\t'.join([str((int(v1)+int(v2))) for v1,v2 in zip(l1.split(), l2.split())])

# python26 sum.py a.txt b.txt
3       5       7
9       11      13