このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/php/1168450843/314
#  ,"/web/sendmail.php","10","10","2000" 
#  こういう感じの文章の 
#  ,"2000" 
#  のみ抽出したいんですが、どう書けばいいんでしょうか? 
#   
#  ",".*[0-9]"$ 
#  だと"10","10","2000"まで拾っちゃうんです・・・。 
# 
# 

'"/web/sendmail.php","10","10","2000" こういう感じの文章の,"2000"のみ抽出したい'(_文字列,_前文字列,_適合文字列,_後文字列) :-
        sub_atom(_文字列,_,_,_,S1,S2,S3,L1,L2,L3),
        append(['"'|R1],['"'],L2),
        すべて数字(R1),
        length(R1,4),
        concat_atom(R1,_適合文字列),
        concat_atom([S1,'"'],_前文字列),
        concat_atom(['"',S3],_後文字列).