The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

  $0 
    半角カナの行数を数える

 オプション:

   -H : 件数を数える対象が半角カナとなる。
   -K : 件数を数える対象が全角カナとなる。次の文字も含む -->   。「」、・゛゜
   -: : 各行の様子を出力する。
   -c char ; 文字 char を含む 行や個数を出す。 char は1文字で無くて良い。
   -~ : その行に、1つも目的の文字が含まないものを表示する。

   -L : 標準出力には単純に,各行のパターンにマッチした個数のみを出力。最後に標準エラー出力に、全体の集計情報を出力。
   -v : 各行の文字列も出力する。
   -m : (実験的なもの) マッチしたパターンで各行で最初のものを出力する。
   -t str : マッチしたものを str に変換する。
   -x : マッチした文字を -m で取り出した場合に、そのユニコードのコードポイントを16進で知る。

 開発上のメモ: 
   * (改行文字が、Unix 形式でない場合にも "自動的に" 対処するようにしたい。)
   * 改行文字やタブ文字を、置換した場合の文字列、さらに、その文字列が他の文字列と一緒になる場合の対策も、実装したい。
   * そろそろ <> をオーバーライドしたい気がしてきた。