このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1268979408/642
#  test.abc.ne.jp 
#  test.abcdef.ne.jp 
#  test.ztv.ne.jp 
#   
#  「test.abc.ne.jpは除外」というルールを 
#  ^test\.[^abc]+\.ne\.jp$ 
#  と書いたのですが、test.abcdef.ne.jpも除外されてしまいます 
#   
#  ^test\.(?!abc(?!def))\w+\.ne\.jp$ 
#  と書けばいいのですが、(?!)は環境により使えません 
#  (?!)を使わず、「test.abc.ne.jpを除外し、test.abcdef.ne.jpは除外しない」というルールを教えていただきたいです。よろしくお願いします 
# 
# 
% abcとneの間にdefだけは入ることができない場合

除外文字列(_文字列) :-
        atom_chars(_文字列,Chars),
        append(_,[t,e,s,t,'.',a,b,c|L1],['.',n,e,'.',j,p|_],Chars),
        \+(L1 = [d,e,f]).

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% abcとneの間には何も入ることができない

除外文字列(_文字列) :-
        atom_chars(_文字列,Chars),
        append(_,[t,e,s,t,'.',a,b,c'.',n,e,'.',j,p|_],Chars).