このディレクトリの索引

# 出典 :: 正規表現 Part8 #31 # 正規表現でとあるスレの、特定のURLを含まないレスをあぼーんにしたいと考えています # 特定のURLは"mt=8"と"hibari"が含まれたURLです # [^(mt=8)(hibari)] # と試しましたが駄目でした。どのようにすればよいのでしょうか? # # '正規表現でとあるスレの、特定のURLの要素を含まないレスをあぼーんにしたい'(_レス) :- 特定のURLの要素を含まないレスを(_レス,_前文字列,URL,_後文字列),!. 特定のURLの要素を含まないレスを(_レス,_前文字列,URL,_後文字列) :- 'URL文字列の切り取り'(_レス,_前文字列,URL,_後文字列), 特定のURLの要素を含まない(URL). 'URL文字列の切り取り'(_文字列,_前文字列,URL文字列,_後文字列) :- 副文字列(_文字列,_前文字列,URL文字列,_後文字列), '後文字列は空文字であるか、最初の文字が空白、改行、ダブルクォート、カンマのどれかである'(_後文字列), parse_url_search(URL文字列,_). 副文字列(_文字列,_前文字列,_副文字列,_後文字列) :- atom_concat(_前文字列,_残り文字列,_文字列), atom_concat(_副文字列,_後文字列,_残り文字列). '後文字列は空文字であるか、最初の文字が空白、改行、ダブルクォート、カンマのどれかである'('') :- !. '後文字列は空文字であるか、最初の文字が空白、改行、ダブルクォート、カンマのどれかである'(_後文字列) :- sub_atom(_後文字列,0,1,_,_文字), member(_文字,[' ','\n','"','\'']). 特定のURLの要素を含まない(URL) :- \+(特定のURLの要素を含む(URL)). 特定のURLの要素を含む(URL) :- url_parse(URL,L), 'hostかpathの中にhanabiがあるかsearchの中にmt=8がある'(L). 'hostかpathの中にhanabiがあるかsearchの中にmt=8がある'(L) :- 'hostかpathの中にhanabiがある'(L). 'hostかpathの中にhanabiがあるかsearchの中にmt=8がある'(L) :- 'searchの中にmt=8がある'(L). 'hostかpathの中にhanabiがある'(L) :- member(host(Host),L), sub_atom(Host,_,_,_,hanabi). 'searchの中にmt=8がある'(L) :- member(search(Search),L), member(mt='8',Search).