このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1323566370/368
#  お願いします 
#   
#  ●正規表現の使用環境 
#  PHP5 
#   
#  ●検索か置換か? 
#  置換 
#   
#  ●説明 
#  0123456789アイウエオカキクケコサシスセソタチツテトナニヌネノハヒフヘホマミムメモヤユヨラリルレロワヲンABCDEFGHIJKLMNOPQRSTUVWXYZ゙ ゚\「」,.()-/ 
#   
#  preg_replace関数を使い上記文字以外を全て削除したい 
#   
#  ●対象データ 
#  0ガ9ギAグアaイbウcエdオ 
#   
#  ●希望する結果 
#  09Aアイウエオ 
# 


'0123456789アイウエオカキクケコサシスセソタチツテトナニヌネノハヒフヘホマミムメモヤユヨラリルレロワヲンABCDEFGHIJKLMNOPQRSTUVWXYZ゙ ゚\\「」,.()-/ preg_replace関数を使い上記文字以外を全て削除したい'(_文字列,_置換された文字列) :-
        atom_chars('0123456789アイウエオカキクケコサシスセソタチツテトナニヌネノハヒフヘホマミムメモヤユヨラリルレロワヲンABCDEFGHIJKLMNOPQRSTUVWXYZ゙ ゚\\「」,.()-/',_削除しない文字ならび),
        findall(_文字,(
                    sub_atom(_文字列,_,1,_,_文字),
                    member(_文字,_削除しない文字ならび)),
                _選択された文字ならび),
        concat_atom(_選択された文字ならび,_置換された文字列).