>>839
% Prolog

t839(_ファイル) :-
　　get_chars(_ファイル,Lines),
　　member(URL,Lines),
　　w3c(URL,Lines2),
　　concat_atom(Lines,_改行を削除した全文),
　　atom_chars(_改行を削除した全文,Chars),
　　タイトルを得る(Chars,_タイトル),
　　write_formatted('%t,%t\n',[URL,_タイトル]),
　　fail.
t839(_).

タイトルを得る([<A,B,C,D,E,>|R1],_タイトル) :-
　　(A=t;A='T'),(B=i;B='I'),(C=t;C='T'),(D=l;D='L'),(E=e;E='E'),
　　タイトル文字ならびを切り取る(R1,_タイトル文字ならび),
　　concat_atom(_タイトル文字ならび,_タイトル).
タイトルを得る([_|R1],_タイトル) :-
　　タイトルを得る(R1,_タイトル).

タイトル文字ならびを切り取る([<,/,A,B,C,D,E,>|_],[]) :-
　　(A=t;A='T'),(B=i;B='I'),(C=t;C='T'),(D=l;D='L'),(E=e;E='E'),!.
タイトル文字ならびを切り取る([A|R1],[A|R2]) :-
　　タイトル文字ならびを切り取る(R1,R2).