このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1268979408/802
#  Abc_def, Ghi_jkl ,Mno_pqr 
#  という文章を、 
#  AbcDef, GhiJkl ,MnoPqr 
#  に変えたいのですが、どのような正規表現を書けばいいでしょうか? 
# 
# 

'Abc_def, Ghi_jkl ,Mno_pqr という文章を、AbcDef, GhiJkl ,MnoPqr に変える'(_文字列,_変換された文字列) :-
        atom_chars(_文字列,Chars),
        変換(Chars,Chars2),
        atom_chars(_変換された文字列,Chars2).

変換([],[]) :- !.        
変換(['_',A|R1],[B|R2]) :-
        to_upper(A,B),
        変換(R1,R2),!.
変換([A|R1],[A|R2]) :-
        変換(R1,R2).