このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1268979408/906
#  ●実装しようとしている正規表現 
#  ^[0][1-9]$|^[1-9]\d$ 
#   
#  PHPのpreg_matchでいえば 
#  preg_match (/^[0][1-9]$|^[1-9]\d$/, $subject) 
#   
#  ●正規表現の使用環境 
#  PHP 5.2 
#  ●検索か置換か? 
#  検索 
#  ●説明 
#  2桁の月で00のみを除外したい。 
#   
#  00   × 
#  01〜12 OK(13〜99は他の方法で除外しています) 
#   
#  ●対象データ 
#  説明の項を参照 
#  ●希望する結果 
#  説明の項を参照 
#   
# 
# 

'2桁の月で00のみを除外したい'(_文字列,_前文字列,_検索文字列,_後文字列) :-
        sub_atom(_文字列,_,_,_,_前文字列,_検索文字列,後文字列,L1,[A,B],L3),
        digit(A),
        digit(B),
        \+((A='0',B='0')),
        \+((last(L1,Z),digit(Z))),
        \+((L3=[H|_],digit(H))).