このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1268979408/316
#  ●正規表現の使用環境  
#  PHP5 
#   
#  ●検索か置換か?  
#  検索  
#   
#  ●説明  
#  [[ と ]] に囲まれた文字列を配列で取得したい  
#   
#  ●対象データ  
#  [[hare]][[ame]][[kumori]][[yuki]][[]][[kaminari]][[taifuu]] 
#   
#  ●希望する結果  
#  matches[0] = hare 
#  matches[1] = ame 
#  matches[2] = kumori 
#  matches[3] = yuki 
#  matches[4] = 
#  matches[5] = kaminari 
#  matches[6] = taifuu 
#   
#  よろしくお願いします。 
# 

'[[ と ]] に囲まれた文字列をならびとして取得したい'(_文字列,L) :-
        atom_chars(_文字列,Chars),
        '文字ならびから[[ と ]] に囲まれた文字列をならびとして取得したい'(Chars,L).

'文字ならびから[[ と ]] に囲まれた文字列をならびとして取得したい'(Chars,[_文字列1|R]) :-
        append(L0,['[','['|R1],[']',']'|R2],Chars),
        concat_atom(R1,_文字列1),
        '文字ならびから[[ と ]] に囲まれた文字列をならびとして取得したい'(R2,R),!.
'文字ならびから[[ と ]] に囲まれた文字列をならびとして取得したい'(_,[]) :- !.