RosettaCodeData/Task/Web-scraping/Perl-6/web-scraping.pl6

mirror of https://github.com/acmeism/RosettaCodeData.git
use HTTP::Client; # https://github.com/supernovus/perl6-http-client/
my $site = "http://tycho.usno.navy.mil/cgi-bin/timer.pl";
HTTP::Client.new.get($site).content.match(/'<BR>'( .+? <ws> UTC )/)[0].say
	`use HTTP::Client; # https://github.com/supernovus/perl6-http-client/`
	`my $site = "http://tycho.usno.navy.mil/cgi-bin/timer.pl";`
	`HTTP::Client.new.get($site).content.match(/'<BR>'( .+? <ws> UTC )/)[0].say`