このディレクトリの索引

ホスト名のIPアドレスを取得する(_ホスト名,IPアドレス) :-
    get_lines('/etc/hosts',Lines),
    member(Line,Lines),
    split(Line,[' '],[IPアドレス,_ホスト名|_]),!.

'IPアドレスからホスト名を取得する'(IPアドレス,_ホスト名) :-
    get_lines('/etc/hosts',Lines),
    member(Line,Lines),
    split(Line,[' '],[IPアドレス,_ホスト名|_]),!.