[완료]Python을 활용한 텍스트 자료 간단 통계 내기

require 'csv'
a = CSV.open('a.txt', 'r', :col_sep => ';').to_a
b = CSV.open('b.csv','r').to_a
 
data = a+b
h = Hash.new{|h,k|h[k]=[]}
data.each do |r|
  sum = h["#{r[0][0]}0000"]
  r[1..-1].each_with_index{|v,i| sum[i] = sum[i].to_f+v.to_f}
end
h.each{|k,v| puts ([k] << v).join(',')}

data = ARGV.inject([]){|memo,p| memo += open(p).readlines}
           .map{|l|l.scan(/[.\d]+/).flatten}
 
h = Hash.new{|h,k|h[k]=[]}
data.each do |r|
  sum = h["#{r[0][0]}0000"]
  r[1..-1].each_with_index{|v,i| sum[i] = sum[i].to_f+v.to_f}
end
h.each{|k,v| puts ([k] << v).join(',')}

import csv
 
a = csv.reader(open('a.txt','r'), delimiter=';')
b = csv.reader(open('b.csv'))
data = [i for i in a] + [i for i in b]
 
d = {}
for row in data:
  k = "%s0000"%(row[0][0])
  if not d.has_key(k):
    d[k] = [0 for i in range(len(row)-1)]
  d[k] = map(lambda x,y:x+float(y),d[k],row[1:])
 
for k,v in d.items():
  print k,','.join(map(str,v))

my ($p, $l) = (1, 5);
my %h;
while (<>) {
    my @a = split /[^.\d]+/, $_;
    $h{ substr($a[0], 0, $p).'0'x($l-$p) }[$_-1] += $a[$_] for 1..$#a;
}
print "$_ @{$h{$_}}\n" for sort keys %h;

 perl -aF"[^.\d]+" -ne 'BEGIN{($p,$l)=(1,5)}$h{substr($F[0],0,$p)."0"x($l-$p)}[$_-1]+=$F[$_] for 1..$#F;END{print"$_ @{$h{$_}}\n" for sort keys %h}; ' a.txt b.csv

(code lang=perl)
코드
(/code)