#! /usr/local/bin/jgawk -f
## --------------------------------------------------------------
##  ええとですね、文字列の中で、
##
##  >>/[あ-ん]*＜副助詞＞[あ-ん]*＜格助詞＞/
##
##  にマッチする部分の /[あ-ん]*＜副助詞＞/ だけを消去したいとき
##  以下のような方法が使えます。(使えました)
##
##  # sed でいうところの「タグつき正規表現」があれば楽勝なんだけ
##  # どなあ.. (^_^;)
## --------------------------------------------------------------
$0 ~ /[あ-ん]*＜副助詞＞[あ-ん]*＜格助詞＞/ {
  print "[Mae]:" $0;
  while(match($0, /[あ-ん]*＜副助詞＞[あ-ん]*＜格助詞＞/) != 0) {
    $0 = MojiCut($0, RSTART, index(substr($0, RSTART), "＞") + 1);
  }
  print "[Ato]:" $0;
}
##
func MojiCut(str, pnt, len      , nu1) {
  nu1 = pnt + len;
  return substr(str,1,pnt - 1) substr(str, pnt + len);
}