From: Yukari Ono <fairy@...>
Date: 1999-07-31T13:23:42+09:00
Subject: [ruby-list:15784] awk の gsub に相当するカウンターはないですか。

はじめまして、小野　ゆかり と申します。

雑誌(C Magazine)に紹介記事がありましたので、

早速使っているのですが、

Perl は、知らないので少し取っつきにくく感じます。

でも、がんばって覚えていきたいと思います。

表題の件ですけど、

jgawk では、(括弧の差を求める)

    paren += (gsub("[(]", "&") - gsub("[)]", "&"))

とコーディングしていたのですが、

ruby では、該当するものが見つからなくて、

    def fnCount(line, pat)
         $_ = line
         count = 0
         if $_ =~ pat
             while sub(pat, "\\&")
                 if $' == nil then break; end
                 count += 1
                 $_ = $'
             end
         end
         return count
    end

    ......

    $paren += (fnCount($_, /[(]/) - fnCount($_, /[)]/))

    のようにコーディングしており、

    すっきりしたコードになりません。

　　なにか、簡潔なコーディング等があれば、

    教えてください。お願いいたします。