このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/php/1168450843/568
#  perl で, 
#  「<と>で囲まれた文字列内の abc を def に全て置換する」 
#  というのは正規表現でどう書けばよいでしょうか。 
#   
#  マッチだけならば 
#  "<asaabcasalaabca>" =~ /\<(.*?)(abc(.*?))*?\>/ 
#  のようにしてマッチさせられるのですが,繰り返しがあるので後方参照で取得できません。 
# 
# 

'<と>で囲まれた文字列内の abc を def に全て置換する'('','') :- !.
'<と>で囲まれた文字列内の abc を def に全て置換する'(_文字列,_置換された文字列) :-
        sub_atom(_文字列,_,_,_,S1,S2,S3,L1,['<'|R2],L3),
        append(L00,['>'],R2),
        abcをdefに置換する(L00,L22),
        append(L1,['<',L22],['>'],L4),
        concat_atom(L4,S22),
        '<と>で囲まれた文字列内の abc を def に全て置換する'(S3,S4),
        concat_atom([S22,S4],_置換された文字列).

abcをdefに置換(L1,L2) :-
        append(L0,[a,b,c|R1],L1),
        append(L0,[d,e,f|R1],L2),!.
abcをdefに置換(L,L).