Add tasks for all the new languages

Task/Web-scraping/8th/web-scraping.8th

@@ -0,0 +1,14 @@
+\ Web-scrape sample: get UTC time from the US Naval Observatory:
+: read-url \ -- s
+ "http://tycho.usno.navy.mil/cgi-bin/timer.pl" net:get
+ not if "Could not connect" throw then
+ >s ;
+
+: get-time
+  read-url
+  /<BR>.*?(\d{2}:\d{2}:\d{2})\sUTC/ 	
+  tuck r:match if
+    1 r:@ . cr
+  then ;
+
+get-time bye

Task/Web-scraping/App-Inventor/web-scraping.app

@@ -0,0 +1,9 @@
+when ScrapeButton.Click do
+	set ScrapeWeb.Url to SourceTextBox.Text
+	call ScrapeWeb.Get
+
+when ScrapeWeb.GotText url,responseCode,responseType,responseContent do
+	initialize local Left to split at first text (text: get responseContent, at: PreTextBox.Text)
+	initialize local Right to "" in
+		set Right to select list item (list: get Left, index: 2)
+		set ResultLabel.Text to select list item (list: split at first (text:get Right, at: PostTextBox.Text), index: 1)

Task/Web-scraping/FunL/web-scraping.funl

@@ -0,0 +1,5 @@
+import io.Source
+
+case Source.fromURL( 'http://tycho.usno.navy.mil/cgi-bin/timer.pl', 'UTF-8' ).getLines().find( ('Eastern' in) ) of
+  Some( time ) -> println( time.substring(4) )
+  None         -> error( 'Easter time not found' )

Task/Web-scraping/Lasso/web-scraping.lasso

@@ -0,0 +1,27 @@
+/* have to be used
+local(raw_htmlstring = '<TITLE>What time is it?</TITLE>
+<H2> US Naval Observatory Master Clock Time</H2> <H3><PRE>
+<BR>Jul. 27, 22:57:22 UTC		Universal Time
+<BR>Jul. 27, 06:57:22 PM EDT	Eastern Time
+<BR>Jul. 27, 05:57:22 PM CDT	Central Time
+<BR>Jul. 27, 04:57:22 PM MDT	Mountain Time
+<BR>Jul. 27, 03:57:22 PM PDT	Pacific Time
+<BR>Jul. 27, 02:57:22 PM AKDT	Alaska Time
+<BR>Jul. 27, 12:57:22 PM HAST	Hawaii-Aleutian Time
+</PRE></H3>
+')
+*/
+
+// should be used
+local(raw_htmlstring = string(include_url('http://tycho.usno.navy.mil/cgi-bin/timer.pl')))
+
+local(
+	reg_exp = regexp(-find = `<br>(.*?) UTC`, -input = #raw_htmlstring, -ignorecase),
+	datepart_txt =  #reg_exp -> find ? #reg_exp -> matchstring(1) | string
+)
+
+#datepart_txt
+'<br />'
+// added bonus showing how parsed string can be converted to date object
+local(mydate = date(#datepart_txt, -format = `MMM'.' dd',' HH:mm:ss`))
+#mydate -> format(`YYYY-MM-dd HH:mm:ss`)

Task/Web-scraping/Nim/web-scraping.nim

@@ -0,0 +1,5 @@
+import httpclient, strutils
+
+for line in getContent("http://tycho.usno.navy.mil/cgi-bin/timer.pl").splitLines:
+  if " UTC" in line:
+    echo line[4..line.high]

Task/Web-scraping/Peloton/web-scraping-1.peloton

@@ -0,0 +1,5 @@
+<@ DEFAREPRS>Rexx Parse</@>
+<@ DEFPRSLIT>Rexx Parse|'<BR>' UTCtime 'UTC'</@>
+<@ LETVARURL>timer|http://tycho.usno.navy.mil/cgi-bin/timer.pl</@>
+<@ ACTRPNPRSVAR>Rexx Parse|timer</@>
+<@ SAYVAR>UTCtime</@>

Task/Web-scraping/Peloton/web-scraping-2.peloton

@@ -0,0 +1,5 @@
+<# DEFINE WORKAREA PARSEVALUES>Rexx Parse</#>
+<# DEFINE PARSEVALUES LITERAL>Rexx Parse|'<BR>' UTCtime 'UTC'</#>
+<# LET VARIABLE URLSOURCE>timer|http://tycho.usno.navy.mil/cgi-bin/timer.pl</#>
+<# ACT REPLACEBYPATTERN PARSEVALUES VARIABLE>Rexx Parse|timer</#>
+<# SAY VARIABLE>UTCtime</#>

Task/Web-scraping/Peloton/web-scraping-3.peloton

@@ -0,0 +1 @@
+<@ SAY AFT BEF URL LIT LIT LIT >http://tycho.usno.navy.mil/cgi-bin/timer.pl| UTC|<BR></@>

Task/Web-scraping/Sidef/web-scraping.sidef

@@ -0,0 +1,4 @@
+var ua = frequire('LWP::Simple');
+var url = 'http://tycho.usno.navy.mil/cgi-bin/timer.pl';
+var match = /<BR>(.+? UTC)/.match(ua.get(url));
+say match[0] if match;

Task/Web-scraping/ToffeeScript/web-scraping.toffee

@@ -0,0 +1,3 @@
+e, page = require('request').get! 'http://tycho.usno.navy.mil/cgi-bin/timer.pl'
+l = line for line in page.body.split('\n') when line.indexOf('UTC')>0
+console.log l.substr(4,l.length-20)

Task/Web-scraping/jq/web-scraping-1.jq

@@ -0,0 +1,3 @@
+#!/bin/bash
+  curl -Ss 'http://tycho.usno.navy.mil/cgi-bin/timer.pl' |\
+    jq -R -r 'if index(" UTC") then .[4:] else empty end'

Task/Web-scraping/jq/web-scraping-2.jq

@@ -0,0 +1,2 @@
+$ ./Web_scraping.jq
+Apr. 21, 05:19:32 UTC		Universal Time