CUFP
dbush
<P>Ever had the problem of not knowing what to do? Perl and <A HREF=http://www.random.org/essay.html>random.org</A> to the rescue...</P>
<CODE>
use strict;
use warnings;
use LWP::Simple;
my ($szConumdrum, $szThisSolution, @solution, $URL, $iRandom);
print 'Conundrum: ';
chomp ($szConumdrum = <STDIN>);
while () {
print 'Solution: ';
chomp ($szThisSolution = <STDIN>);
last if $szThisSolution eq '';
push @solution, $szThisSolution;
}
$URL = "http://www.random.org/cgi-bin/randnum?num=1&min=0&max=$#solution&col=1";
print "Deciding...\n";
$iRandom = get($URL);
die "Unable to decide!\n" if not defined $iRandom;
print "The solution to '$szConumdrum' is '$solution[$iRandom]'\n";
__END__
</CODE>
<P>I was in two minds about posting this code and so I thought I would ask the script itself. The following is honestly the result...</P>
<CODE>
Conundrum: Should I post this code to PM?
Solution: Yes
Solution: No
Solution:
Deciding...
The solution to 'Should I post this code to PM?' is 'Yes'
</CODE>
<P>The ether can't be wrong.</P>
<P>Cheers,<BR>
Dom.
</P>
<P>
<SMALL>
<B>Update:</B> Changed the code based on [id://170442]'s suggestion in the chatterbox; "you should probably use $#solution, rather than @solution - 1. And you can interpolate it directly".
</SMALL>
</P>