このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/php/1168450843/532
#  perlでテキストデータ内の日付部分を、 
#  2009/1/1 
#  ↓ 
#  2009/01/01 
#  に一行で置換したいのですが。 
#  s|/([0-9][^0-9])|/0$1|gm; 
#  だと、2回同じ処理が必要になってしまいます。 
#  いい方法ありますか? 
# 
# 

'2009/1/1 -> 2009/01/01 に置換したい'(_文字列,_置換された文字列) :-
        '2009/1/1 -> 2009/01/01 に置換したい'(_文字列,'',_置換された文字列).

'2009/1/1 -> 2009/01/01 に置換したい'(_文字列,_前文字列,_置換された文字列) :-
        sub_atom(_文字列,_,_,_,S1,S2,_後文字列,L1,[Y1,Y2,Y3,Y4,/,M,/,D],L3),
        concat_atom([Y1,Y2,Y3,Y4,/,'0',M,/,'0',D],S22),
        concat_atom([S1,S22],_置換された文字列の一),
        concat_atom([_前文字列,_置換された文字列の一],_前文字列の二),
        '2009/1/1 -> 2009/01/01 に置換したい'(_後文字列,_前文字列の二,_置換された文字列).
'2009/1/1 -> 2009/01/01 に置換したい'(_文字列,_前文字列,_置換された文字列) :-
        concat_atom([_前文字列,_文字列],_置換された文字列).