katsu #1323(2007/07/22 04:20 GMT) [ Prolog ] Rating0/0=0.00
1 2 3 4 5 6 7 8
:-use_module(library('http/http_open')). :-use_module(library('sgml')). find_element([],_,_):-fail. find_element([X|_],E,X):-X=element(E,_,_). find_element([X|Xs],E,O):-X=element(_,_,X1),(find_element(X1,E,O);find_element(Xs,E,O)). :-http_open('http://ja.doukaku.org/feeds/comments/',S,[]),load_structure(S,O,[dialect(xml)]),find_element(O,lastBuildDate,Os),writeln(Os).
Rating0/0=0.00-0+
[ reply ]
katsu
#1323()
[
Prolog
]
Rating0/0=0.00
:-use_module(library('http/http_open')). :-use_module(library('sgml')). find_element([],_,_):-fail. find_element([X|_],E,X):-X=element(E,_,_). find_element([X|Xs],E,O):-X=element(_,_,X1),(find_element(X1,E,O);find_element(Xs,E,O)). :-http_open('http://ja.doukaku.org/feeds/comments/',S,[]),load_structure(S,O,[dialect(xml)]),find_element(O,lastBuildDate,Os),writeln(Os).Rating0/0=0.00-0+
[ reply ]