2012-08-03 18:17:50 -04:00
|
|
|
! Copyright (c) 2012 Anonymous
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
|
|
|
USING: http.client io kernel math sequences ;
|
|
|
|
|
IN: rosetta-code.web-scraping
|
|
|
|
|
|
|
|
|
|
! http://rosettacode.org/wiki/Web_scraping
|
|
|
|
|
|
|
|
|
|
! Create a program that downloads the time from this URL:
|
|
|
|
|
! http://tycho.usno.navy.mil/cgi-bin/timer.pl and then prints the
|
|
|
|
|
! current UTC time by extracting just the UTC time from the web
|
|
|
|
|
! page's HTML.
|
|
|
|
|
|
|
|
|
|
! If possible, only use libraries that come at no extra monetary
|
|
|
|
|
! cost with the programming language and that are widely available
|
|
|
|
|
! and popular such as CPAN for Perl or Boost for C++.
|
|
|
|
|
|
|
|
|
|
: web-scraping-main ( -- )
|
2014-03-12 22:29:35 -04:00
|
|
|
"http://tycho.usno.navy.mil/cgi-bin/timer.pl" http-get nip
|
2012-08-03 18:17:50 -04:00
|
|
|
[ "UTC" swap start [ 9 - ] [ 1 - ] bi ] keep subseq print ;
|
|
|
|
|
|
|
|
|
|
MAIN: web-scraping-main
|
