このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1268979408/614
#   
#  .replace(/^(http:\/\/farm1\.static\.flickr\.com\/[^/]+\/\w+_\w+_)m(\.\w+)$/, "$1o$2") 
#   
#  ↑ 
#  のスクリプトを改変したいのですが、 
#  以下の場合の正規表現をそれぞれ教えてください  
# 
#  ( 1 ) 
#  http://ime.nu/img.pics.livedoor.com/*/*/*/*-*.jpg 
#  ↓ 「*-*.jpg」を「*-1024.jpg」に変える 
#  http://ime.nu/img.pics.livedoor.com/*/*/*/*-1024.jpg 
#   
#  ※こういうURL置換させることを目指してます  
#  http://ime.nu/img.pics.livedoor.com/009/0/b/0b3b287d7e66fff3ec46-M.jpg 
#  ↓ 
#  http://ime.nu/img.pics.livedoor.com/009/0/b/0b3b287d7e66fff3ec46-1024.jpg 
#   
#   
#  ( 2 ) 
#  http://ime.nu/*.photobucket.com/*/*/*/th_*.jpg 
#  ↓ 「th_」を削除 
#  http://ime.nu/*.photobucket.com/*/*/*/*.jpg 
#   
#  ※こういうURL置換させることを目指してます  
#  http://ime.nu/i784.photobucket.com/albums/yy125/Pusgin/th_alex1a.jpg 
#  ↓ 
#  http://ime.nu/i784.photobucket.com/albums/yy125/Pusgin/alex1a.jpg 
#   
#   
#  ( 3 ) 
#  http://ime.nu/*.content.foto.mail.ru/*/*/*/*-*.jpg 
#  ↓ 「*-*.jpg」を「i-*.jpg」に変える 
#  http://ime.nu/*.content.foto.mail.ru/*/*/*/i-*.jpg 
#   
#  ※こういうURL置換させることを目指してます  
#  http://ime.nu/img3.content.foto.mail.ru/mail/semins/3294/p-5879.jpg 
#  ↓ 
#  http://ime.nu/img3.content.foto.mail.ru/mail/semins/3294/i-5879.jpg 
# 
# 

'例えば、http://ime.nu/img.pics.livedoor.com/009/0/b/0b3b287d7e66fff3ec46-M.jpgをhttp://ime.nu/img.pics.livedoor.com/009/0/b/0b3b287d7e66fff3ec46-1024.jpg に変えたい'(URL1,URL2) :-
       sPLIT(URL1,['/'],L),
       append(L1,[File],L),
       sPLIT(File,['.jpeg'],[A,B]),
       append(L1,[A,'-1024',B],L2),
       concat_atom(L2,URL2).

'例えば、http://ime.nu/i784.photobucket.com/albums/yy125/Pusgin/th_alex1a.jpgをhttp://ime.nu/i784.photobucket.com/albums/yy125/Pusgin/alex1a.jpg に変えたい'(URL1,URL2) :-
       sPLIT(URL1,['/'],L),
       append(L1,[File],L),
       sPLIT(File,['.jpeg'],[A,B]),
       append(L1,[alex1a,B],L2),
       concat_atom(L2,URL2).

'例えば、http://ime.nu/img3.content.foto.mail.ru/mail/semins/3294/p-5879.jpgをhttp://ime.nu/img3.content.foto.mail.ru/mail/semins/3294/i-5879.jpg に変えたい'(URL1,URL2) :-
       sPLIT(URL1,['/'],L),
       append(L1,[File],L),
       sPLIT(File,['-'],[A,'-',B]),
       append(L1,[i,'-',B],L2),
       concat_atom(L2,URL2).

'例えば、http://c3.ac-images.myspacecdn.com/images02/80/m_22e6adfa8f2b4dafbf00b28a78e9db6e.jpgをhttp://c3.ac-images.myspacecdn.com/images02/80/l_22e6adfa8f2b4dafbf00b28a78e9db6e.jpg に変えたい'(UR1,URW) :-
       sPLIT(URL1,['/'],L),
       append(L1,[File],L),
       sPLIT(File,['_'],[A,'_',B]),
       append(L1,[i,'_',B],L2),
       concat_atom(L2,URL2).

'例えば、http://sphotos.ak.fbcdn.net/hphotos-ak-snc1/hs137.snc1/5852_132531839605_775304605_3072465_7463459_s.jpgをhttp://sphotos.ak.fbcdn.net/hphotos-ak-snc1/hs137.snc1/5852_132531839605_775304605_3072465_7463459_n.jpg に変えたい'(URL1,URL2) :-
       sPLIT(URL1,['/'],L),
       append(L1,[File],L),
       sPLIT(File,['_','.jpeg'],L),
       append(L1,[_,'.jpeg'],L),
       append(L1,[n,'.jpeg'],L2),
       concat_atom(L2,URL2).