このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/php/1168450843/640
#  現在、HTMLのimgタグを使って「/img/jpg/」ディレクトリにある画像ファイルを複数表示しています。 
#   
#  例) 
#  <img src="/img/jpg/1111.jpg" > 
#  <img src="/img/jpg/mm2222.jpg" > 
#  <img src="/img/jpg/kkkkk3333.jpg" > 
#   
#  これをそれぞれ、以下のように置換したいと考えています。 
#  例) 
#  <a href="http://ime.nu/www.xxxxx.jp/1111.jpg"><img src="/img/jpg/1111.jpg" width="240px"></a> 
#  <a href="http://ime.nu/www.xxxxx.jp/mm2222.jpg"><img src="/img/jpg/mm2222.jpg" width="240px"></a> 
#  <a href="http://ime.nu/www.xxxxx.jp/kkkkk3333.jpg"><img src="/img/jpg/kkkkk3333.jpg" width="240px"></a> 
#   
#  imgタグをリンクタグで囲むのですが、リンク先URLには元々の画像ファイル名が使われています。また、imgタグには「width="240px"」が付加されています。 
#   
#  このような置換をPHP5で行うには、どのような正規表現を使用したらよろしいでしょうか。 
#  宜しくお願い致します。 
# 
# 

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

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