このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/php/1168450843/784
#  ttp://aaa.co.jp:8888 
#  http://bbb.com:9999/ 
#  を除外しつつ 
#  他の 
#  h?ttp://○○○.△△△.□□□:☆☆☆/? 
#       ↑ここから      ここまで↑ 
#  をヒットさせたいのですが色々試したのですが出来ませんでした 
#  何か方法がありますでしょうか? 
# 
# 

'ttp://aaa.co.jp:8888とhttp://bbb.com:9999/を以外のURLの内、第3ドメインからトップドメインまでの部分'(_文字列,_前文字列,_適合文字列,_後文字列) :-
        sub_atom(_文字列,_,_,_,_S1,S2,_後文字列,L1,[h,t,t,p,:,/,/|R2],[/|R3]),
        除外URLではない(_適合文字列),
        \+(member(/,R2)),
        concat_atom([S1,'http://'],_前文字列),
        atom_chars(_適合文字列,R2).

'除外URLではない'(S) :-
        \+(sub_atom(S,0,20,_,'ttp://aaa.co.jp:8888')),!.
'除外URLではない'(S) :-
        \+(sub_atom(S,0,20,_,'http://bbb.com:9999/')),!.