#coding:utf-8

if ARGV.size != 5 || !%w{d f}.include?(ARGV[4])
  $stderr.puts "使用方法：#{__FILE__} 入力 出力 N M タイプ"
  $stderr.puts "このプログラムは、入力から_floatとしてバイナリデータまたは"
  $stderr.puts "doubleを読み取り、出力としてテキスト形式を出力します。"
  $stderr.puts "最後の引数は最初の文字形式を指定します。 NとMは、"
  $stderr.puts "配列の大きさです。"
  exit 1
end

入力,出力,n,m,タイプ = *ARGV
File.open(出力,"w") do |f|
  f.write File.read(入力).unpack("#{タイプ}*").each_slice(2).
              map { |行| 行.map { |値| "%f" % 値 }.join "\t" }.join("\n")
end