Ruby 正規表現と置換

質問

こんにちは。

Rubyで正規表現で見つかった箇所の文字列を置換するプログラムを書いているのですが、
一部うまく作動せず、その原因が分からないため質問させていただきました。

以下プログラムの置換の部分になります。
49 case text
50 when /株式数（株）\t貸借対照表計上額（千円）|株式数(株)\t貸借対照表計上額(千円)/
51 text.gsub!(/([1-9]\d{0,2}(,\d{3})*)\t([1-9]\d{0,2}(,\d{3})*)\t/) {|s| "#{$1}株\t#{$3},000円\t"}
52 text.gsub!(/([1-9]\d{0,3})\t(\d{1})/){|s| "#{$1}株\t#{$2}円\t"}
53 text.gsub!(/([1-9]\d{0,2}(,\d{3})*)\t(\d{1})/){|s| "#{$1}株\t#{$3}円\t"}
54 when/百万円/
55 text.gsub!(/([1-9]\d{0,2}(,\d{3})*)\t([1-9]\d{0,2}(,\d{3})*)/) {|s| "#{$1}株\t#{$3},000,000円\t"}
56 text.gsub!(/([1-9]\d{0,3})\t(\d{1})/){|s| "#{$1}株\t#{$2}円\t"}
57 when /株式数（株）\t貸借対照表計上額（百万円）/
58 text.gsub!(/([1-9]\d{0,2}(,\d{3})*)\t([1-9]\d{0,2}(,\d{3})*)/) {|s| "#{$1}株\t#{$3},000,000円\t"}
59 text.gsub!(/([1-9]\d{0,3})\t(\d{1})/){|s| "#{$1}株\t#{$2}円\t"}
60 when /株式数(株)\t貸借対照表計上額(百万円)/
61 text.gsub!(/([1-9]\d{0,2}(,\d{3})*)\t([1-9]\d{0,2}(,\d{3})*)\t/) {|s| "#{$1}株\t#{$3},000,000円\t"}
62 text.gsub!(/([1-9]\d{0,3})\t(\d{1})/){|s| "#{$1}株\t#{$2}円\t"}
63 when /株式数（1000株）\t貸借対照表計上額（百万円）/
64 text.gsub!(/([1-9]\d{0,2}(,\d{3})*)\t([1-9]\d{0,2}(,\d{3})*)\t/) {|s| "#{$1},000株\t#{$3},000,000円\t"}
65 text.gsub!(/([1-9]\d{0,3})\t(\d{1})/){|s| "#{$1}株\t#{$2}円\t"}
66 when /株式数(1000株)\t貸借対照表計上額(百万円)/
67 text.gsub!(/([1-9]\d{0,2}(,\d{3})*)\t([1-9]\d{0,2}(,\d{3})*)\t/) {|s| "#{$1},000株\t#{$3},000,000円\t"}
68 text.gsub!(/([1-9]\d{0,3})\t(\d{1})/){|s| "#{$1}株\t#{$2}円\t"}
69 when/株式数（1000株）\t貸借対照表計上額(百万円)/
70 text.gsub!(/([1-9]\d{0,2}(,\d{3})*)\t([1-9]\d{0,2}(,\d{3})*)\t/) {|s| "#{$1},000株\t#{$3},000,000円\t"}
71 text.gsub!(/([1-9]\d{0,3})\t(\d{1})/){|s| "#{$1}株\t#{$2}円\t"}
72 when/株式数(1000株)\t貸借対照表計上額（百万円）/
73 text.gsub!(/([1-9]\d{0,2}(,\d{3})*)\t([1-9]\d{0,2}(,\d{3})*)\t/) {|s| "#{$1},000株\t#{$3},000,000円\t"}
74 text.gsub!(/([1-9]\d{0,3})\t(\d{1})/){|s| "#{$1}株\t#{$2}円\t"}
75 when/株式数(株) 貸借対照表計上額(百万円)/
76 text.gsub!(/([1-9]\d{0,2}(,\d{3})*)\t([1-9]\d{0,2}(,\d{3})*)\t/) {|s| "#{$1},株\t#{$3},000,000円\t"}
77 text.gsub!(/([1-9]\d{0,3})\t(\d{1})/){|s| "#{$1}株\t#{$2}円\t"}
78 when/株式数（株） 貸借対照表計上額（百万円）/
79 text.gsub!(/([1-9]\d{0,2}(,\d{3})*)\t([1-9]\d{0,2}(,\d{3})*)\t/) {|s| "#{$1},株\t#{$3},000,000円\t"}
80 text.gsub!(/([1-9]\d{0,3})\t(\d{1})/){|s| "#{$1}株\t#{$2}円\t"}
81 end

以下は今のプログラムで出てくる結果です。
１つ目の数字の後ろに「株」、２つ目の数字の後ろに「,000円」がついています。

ハ保有目的が純投資目的である投資株式の前事業年度及び当事業年度における貸借対照表計上額の合計額並びに当事業年度における受取配当金、売却損益及び評価損益の合計額(a)保有目的が純投資目的以外の目的である投資株式銘柄数58銘柄貸借対照表計上額の合計額6,915百万円(b)保有目的が純投資目的以外の目的である投資株式の保有区分、銘柄、株式数、貸借対照表計上額および保有目的(前事業年度)特定投資株式
前事業年度 銘　　　柄 株式数(株) 貸借対照表計上額(百万円) 保有目的
(株)髙島屋 1,594,657株 1,527,000円 事業上の関係の維持・強化
トヨタ自動車(株) 220,804株 1,327,000円 事業上の関係の維持・強化
(株)みずほフィナンシャルグループ 3,295,570株 642,000円 取引銀行との関係の維持・強化
ヒューリック(株) 638,400株 552,000円 事業上の関係の維持・強化
住友商事(株) 229,198株 294,000円 事業上の関係の維持・強化
(株)三菱ＵＦＪフィナンシャル・グループ 457,750株 272,000円 取引銀行との関係の維持・強化
阪急阪神ホールディングス(株) 316,400株 170,000円 事業上の関係の維持・強化
(株)クラレ 86,250株 125,000円 事業上の関係の維持・強化
積水ハウス(株) 90,950株 120,000円 事業上の関係の維持・強化
東海旅客鉄道(株) 10,000株 112,000円 事業上の関係の維持・強化
(株)池田泉州ホールディングス 206,963株 102,000円 取引銀行との関係の維持・強化
帝人(株) 425,000株 99,000円 事業上の関係の維持・強化
東レ(株) 140,000株 98,000円 事業上の関係の維持・強化
(株)滋賀銀行 181,020株 96,000円 取引銀行との関係の維持・強化
ダイニック(株) 459,000株 81,000円 事業上の関係の維持・強化
三井住友トラスト・ホールディングス(株) 187,568株 80,000円 取引銀行との関係の維持・強化
東日本旅客鉄道(株) 10,000株 75,000円 事業上の関係の維持・強化
近畿日本鉄道(株) 155,455株 65,000円 事業上の関係の維持・強化
長瀬産業(株) 47,124株 62,000円 事業上の関係の維持・強化
ユニチカ(株) 1,013,200株 58,000円 事業上の関係の維持・強化
(株)南都銀行 154,532株 58,000円 取引銀行との関係の維持・強化
本田技研工業(株) 12,245株 46,000円 事業上の関係の維持・強化
西日本旅客鉄道(株) 10,000株 42,000円 事業上の関係の維持・強化
イオン(株) 32,149株 38,000円 事業上の関係の維持・強化
コニカミノルタホールディングス(株) 51,000株 37,000円 事業上の関係の維持・強化

本来ならば「,000円」ではなく「,000,000円」を付加して出力するはずなのですが
うまく動作せず「,000円」が付加されてしまっています。

どこを直せば正しく動作するでしょうか？
ご教授の程よろしくお願いします。

回答No.1

kmee

http://okwave.jp/qa/q8839168.html
でも書いたのですが「理由をはっきりさせましょう」

プログラムを書く技術も必要ですが、それ以上に「正しく動作するかを確認する」「期待通りでない場合、その原因を調査解析し修正する」技術が大事です。

今回の例だと
・期待している when ではないwhen節が実行されている。または、どの条件にも当て嵌まらない。
・gsub!による置換が期待通りではない。
が主要因になりそうだ、と予想します。
そうなったら、デバッガや途中経過表示を使って
・textの内容と、実行されるwhenとが期待通りかを確認する
・gsub前と後のtextを比較して、期待通りの置換になっているかを確認する
もし、whenの不一致が理由なら、期待したwhenに合致するようにプログラムを変更します。
もし、gsubの置換が理由なら、期待した置換になるようにプログラムを変更します。

例えば
when /株式数（株）\t貸借対照表計上額（千円）|株式数(株)\t貸借対照表計上額(千円)/
STDERR.printf("when:%d:text:%s:\n",1,text)
text.gsub!(/([1-9]\d{0,2}(,\d{3})*)\t([1-9]\d{0,2}(,\d{3})*)\t/) {|s| "#{$1}株\t#{$3},000円\t"}
STDERR.printf("gsub後:%s:\n",text)
text.gsub!(/([1-9]\d{0,3})\t(\d{1})/){|s| "#{$1}株\t#{$2}円\t"}
STDERR.printf("gsub後:%s:\n",text)
text.gsub!(/([1-9]\d{0,2}(,\d{3})*)\t(\d{1})/){|s| "#{$1}株\t#{$3}円\t"}
STDERR.printf("gsub後:%s:\n",text)
とすれば、 このwhenにマッチしたときの処理の様子がわかります。

とりあえず気付いたのは
○whenは上から順番の評価され、最初にマッチしたものが使われます。
when/百万円/
が先に書いてあると、「百万円」を含むものは全てこちらになるため、 when /株式数（株）\t貸借対照表計上額（百万円）/ 等は絶対にマッチしません。

○もしかして、textはファイル全体ですか?
株式数（株）\t貸借対照表計上額（千円）
データ1
株式数（株）\t貸借対照表計上額（百万円
データ2
が全部一つになっているものだったら、 データ2の部分も「千円」として全部処理されます。