# Code snippet for Web Programming at 2013/11/27,
# slide at http://zoro.ee.ncku.edu.tw/wp2013/res/10-bot.pdf

################################################################################
# perl version

#!/usr/bin/env perl

use strict;

my $url;

=f
$url = 'http://www.random.org/integers/?num=5&min=1&max=10&col=1&base=10&rnd=new';
$_ = `/usr/bin/curl '$url'`;
/"data">(.+?)</s and print $1;
=cut

=f
$url = 'http://www.random.org/integers/?num=5&min=1&max=10&col=1&base=10&format=plain&rnd=new';
$_ = `/usr/bin/curl '$url'`;
print $_;
=cut

=f
my $kw = 'dirty handsome';
my $ua = '-A "Mozilla/5.0"';
$kw =~ s/\s+/+/g;
$url = "http://www.google.com/search?q=$kw";
$_ = `/usr/bin/curl $ua '$url'`;
/"resultStats".*? (\S+)/ and print $1;
=cut

# vi:nowrap:sw=2:ts=2

################################################################################
# js version

var http = require('http');

http.request({
	host: 'www.random.org',
	path: '/integers/?num=5&min=1&max=10&col=1&base=10&format=plain&rnd=new'
}, function(response){
	var str = '';
	response.on('data', function(chunk){ str += chunk; }); // received some data, append it
	response.on('end', function(){ console.log(str); }); // end of data, print it
}).end();

// vi:nowrap:sw=2:ts=2