http://www.perlmonks.org?node_id=1032672


in reply to generate random number without using any built in function in perl?

This is probably bad if you don't have an Internet connection, but oh well..

perl -MHTML::TreeBuilder -e 'use LWP::Simple; my $page = get(qq|http:/ +/www.random.org/integers/?num=100&min=1&max=100&col=5&base=10&format= +html&rnd=new|); my $parser = HTML::TreeBuilder->new_from_content($pag +e); print $parser->look_down(qq|class|,qq|data|)->as_text;'

Celebrate Intellectual Diversity