merge-ttable


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33

#!/usr/bin/env ruby

require "zipf"
require "optimist"

def main
  conf = Optimist::options do
    opt :f, "f files", :type => :string, :required => true
    opt :e, "e files", :type => :string, :required => true
  end

  f_files = conf[:f].split
  e_files = conf[:e].split

  h = {}
  f_files.each_with_index { |fn,i|
    fa = ReadFile.readlines_strip fn
    ea = ReadFile.readlines_strip e_files[i]
    fa.each_with_index { |fw,j|
      if h.has_key? fw
        h[fw] << ea[j]
      else
        h[fw] = [ea[j]]
      end
    }
  }

  h.each_pair { |f,ea|
    puts "#{f}\t#{ea.first}"
  }
end

main