all tasks

Task/Web-scraping/Haskell/web-scraping-1.hs

@@ -0,0 +1,7 @@
+import Data.List
+import Network.HTTP (simpleHTTP, getResponseBody, getRequest)
+
+tyd = "http://tycho.usno.navy.mil/cgi-bin/timer.pl"
+
+readUTC = simpleHTTP (getRequest tyd)>>=
+            fmap ((!!2).head.dropWhile ("UTC"`notElem`).map words.lines). getResponseBody>>=putStrLn

Task/Web-scraping/Haskell/web-scraping-2.hs

@@ -0,0 +1,2 @@
+*Main> readUTC
+08:30:23

Task/Web-scraping/Haskell/web-scraping-3.hs

@@ -0,0 +1,7 @@
+procedure main()
+m := open(url := "http://tycho.usno.navy.mil/cgi-bin/timer.pl","m") | stop("Unable to open ",url)
+every (p := "") ||:= |read(m)                                                    # read the page into a single string
+close(m)
+
+map(p) ? ( tab(find("<br>")), ="<br>", write("UTC time=",p[&pos:find(" utc")]))  # scrape and show
+end