Cool! Thanks Greg! - Joe
On 6/23/10, Greg Hendershott <greghendersh...@gmail.com> wrote: > How I've gotten an x-expression using solely the Racket libs: > > (require net/url html xml) > > (define (get-xexpr-from-url url-string) > (call/input-url (string->url url-string) > get-pure-port > (lambda (p) > (xml->xexpr (car (read-html-as-xml p)))))) > > ; example > (get-xexpr-from-url "http://www.google.com/";) > > > To use the x-expression you'll probably want something like the > following. (Just beware I'm a Lisp/Scheme/Racket n%b and someone will > probably point out a smarter way to code this.) > > (define (find-elements xexpr tag-name) > ;; Given an x-expression return a list of all the elements starting > with tag-name. > (if (empty? xexpr) > '() > (let ([x (first xexpr)]) > (if (and (list? x) (not (empty? x))) > (if (and (symbol? (first x)) (symbol=? (first x) tag-name)) > (append (list x) ; found one! > (find-elements x tag-name) ; drill down > (find-elements (rest xexpr) tag-name)) ; iterate > across > (append (find-elements x tag-name) ; drill down > (find-elements (rest xexpr) tag-name))) ; iterate > across > (find-elements (rest xexpr) tag-name))))) ; iterate across > > ; example: get a list of all the <a> a.k.a 'a elements > (find-elements (get-xexpr-from-url "http://www.google.com/";) 'a) > > > On Wed, Jun 23, 2010 at 2:01 PM, Insik Cho <imin...@gmail.com> wrote: >> hi buddies, >> I want to html source of an web page in racket. >> What module and functions shall I use? and How? >> Thanks in advance! >> Joe >> _________________________________________________ >> For list-related administrative tasks: >> http://lists.racket-lang.org/listinfo/users >> > _________________________________________________ For list-related administrative tasks: http://lists.racket-lang.org/listinfo/users
