このディレクトリの索引
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は除外しない」というルールを教えていただきたいです。よろしくお願いします 
# 
# 

'test.abcと.ne.jpの間にdefだけは入ることができない'(_文字列) :-
        atom_chars(_文字列,Chars),
        append(_,[t,e,s,t,'.',a,b,c|L1],['.',n,e,'.',j,p|_],Chars),
        \+(L1 = [d,e,f]).

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

'test.abcと.ne.jpの間には何も入ることができない'(_文字列) :-
        atom_chars(_文字列,Chars),
        append(_,[t,e,s,t,'.',a,b,c'.',n,e,'.',j,p|_],Chars).

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

'test.abcと.ne.jpの間には何も入ることができない'(_文字列) :-
        atom_chars(_文字列,Chars),
        append(_,[t,e,s,t,'.',a,b,c|L1],['.',n,e,'.',j,p|_],Chars),
        L1 = [].