このディレクトリの索引

'URLのファイル名を取得する'(URL,_ファイル名) :-
    atom_chars(URL,Chars),
    append(L1,['://'|L2],Chars),
    append(_,['/'|L3],L2),
    concat_atom(L2,_ファイル名).