このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1268979408/525
#  http://ime.nu/test.com/test1/test2/test3/pic.jpg から 
#  test.com/test1/test2/test3 を取るにはどう書いたらいいでしょうか 
#   
#  test1やtest2の階層は増えたり減ったりします。 
#  要するにhttp://ime.nu/から最後の/の間の値がほしいです 
# 
# 

'要するにhttp://ime.nu/から最後の/の間の値がほしいです'(_行,_欲しい部分文字列) :-
        atom_chars(_行,Chars),
        append(_,[h,t,t,p,:,/,/,i,m,e,'.',n,u,/|L],[/|R],Chars),
        \+(append(_,[/|_],R)),
        atom_chars(_欲しい部分文字列,L).