このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/php/1168450843/642
#  Perl 5.8 /5.10で使用します。 
#   
#  HTMLソースの中のimgタグのファイル名を正規表現などで一括で変えたいです。 
#   
#  <img src="http://ime.nu/www.hoge.com/aaa/bb/ccc/ddd.jpg" alt="sss"> 
#  <img src="/xxx/yyy.png"> 
#  <img src="../aaa/fff/xxx/ccc.gif" width="32" height="16"> 
#   
#             ↓ 
#   
#  <img src="/images/ddd.jpg" alt="sss"> 
#  <img src="/images/yyy.png"> 
#  <img src="/images/ccc.gif" width="32" height="16"> 
#   
#  こんな感じです。どの様にしたらよいでしょうか。 
# 

'imgタグの書き換え'(Lines,_置換されたLines) :-
        findall(_置換された文字列,(
                    append(_,[_文字列|_],Lines),
                    文字列の置換(_文字列,_置換された文字列)),
                _置換されたLines).


文字列の置換(_文字列,_置換された文字列) :-
        sub_atom(_文字列,_,_,_,S1,S2,S3,L1,L2,L3),
        L2 = [<,i,m,g,' ',s,r,c,=,'"'|R2],
        L3 = [>|R3],
        \+(append(_,[>|_],R2)),
        concat_atom(R2,S22),
        split(S22,['/'],L),
        last(L,F),
        concat_atom([S1,'