このディレクトリの索引

'URLのプロトコル名を取得する'(URL,_プロトコル名) :-
    split(URL,['://'],[A|_プロトコル名]).