このディレクトリの索引

'URLのユーザー情報を取得する'(URL,_ユーザー情報) :-
    atom_chars(URL,Chars),
    append(L1,['://'|L2],Chars),
    append(L3,['/'|_],L2),
    append(L4,['@'|_],L3),
    concat_atom(L4,_ユーザー情報).