JIS 長音省略表記を修正するスクリプト (UTF-8 限定)

fix-jis-shorttail.pl

#!/usr/bin/perl -pi.orig
##
## JIS 長音省略表記を修正するスクリプト (UTF-8 限定)
##
## Author:  さとうふみやす
## URL:     https://gist.github.com/1254298
## Copying: GNU GPLv3
## Usage:
##   find /targetdir -type f -name "*.html" -exec perl fix-jis-shorttail.pl {} +
##

s/(
  アダプタ|
  アドミニストレータ|
  インストーラ|
  エクスプローラ|
  エディタ|
  オーバ|
  オブザーバ|
  カウンタ|
  キャラクタ|
  クラスタ|
  コンテナ|
  コントローラ|
  コンバータ|
  コンピュータ|
  サーバ|
  スキャナ|
  スライダ|
  セパレータ|
  デバッガ|
  デベロッパ|
  ドライバ|
  ナビゲータ|
  ハンドラ|
  バッファ|
  パラメータ|
  ビューア|
  フィルタ|
  フォルダ|
  フッタ|
  ブラウザ|
  プリンタ|
  プレースホルダ|
  プロジェクタ|
  プロバイダ|
  ヘッダ|
  ベクタ|
  ページャ|
  ポインタ|
  マスタ|
  マネージャ|
  メンバ|
  モニタ|
  ユーザ|
  リゾルバ|
  リンカ|
  ローダ
)/$1ー/gx;
s/ーー/ー/g;
s/(ローダ)ー(ブル)/$1$2/g;
s/(フィルタ)ー(リング)/$1$2/gx;