このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1280653311/188
#  [2] 問題文:任意のウェブページ(ここではイントラページ)を、既定設定されているブラウザで表示させる  
#

既定のブラウザ(firefox).

既定設定されているブラウザで表示(URL) :-
        既定のブラウザ(_ブラウザ),
        P =.. [_ブラウザ,URL],
        call(P).

firefox(URL) :-
        concat_atom(['/usr/lib/firefox/firefox -a firefox -remote "openURL(',URL,')"  &'],Firefox),
        shell(Firefox),!.

w3m(URL) :-
        atom(URL),
        predicate_type(URL / 0,undefined),
        concat_atom(['sudo w3m "',URL,'"'],S),
        shell(S) .