Rock, Paper, Scissors

#!/usr/bin/perl -Tw use strict; use CGI; my $qw = new CGI; my $cgi = $qw->url(-relative=>1); print $qw->header(); my %images = ( rock => "rock.jpg", paper => "paper.jpg", scissors => "scissors.jpg", ); print < Rock, Paper, Scissors

Rock, Paper, Scissors

EOF if ($qw->param('action')) { srand(time()); my $choice = (qw/rock paper scissors/)[int(rand(3))]; my $action = $qw->param('action'); if (! grep { $action eq $_ } qw/r s p/) { print "You need to choose Rock Paper or Scissors
"; $action = "nothing"; } else { $action = join "", map { ($_ =~ /^$action/)?$_:"" } qw/rock paper scissors/; } my $winner = "No-one"; my ($happen, $midimg); my $wl = win($action,$choice); if ($wl eq "p") { $winner = "You"; $midimg = "

"; $happen = make_action($action,$choice); } elsif ($wl eq "c") { $winner = "I"; $midimg = " Winner

"; $happen = make_action($choice,$action); } elsif ($wl eq "d") { $winner = "No-one"; $midimg = "

"; $happen = ""; } elsif ($action eq "nothing") { $winner = "Because you didn't pick anything valid, I "; $happen = "Nothing loses to ".ucfirst($choice); } else { print "Something went wrong.
\n"; $winner = "No idea who"; } print "

You chose $action

$midimg

I chose $choice

"; if ($happen) { print "$happen.
\n"; } print <

Next game.

EOF } print <Click on one of the images to play.

Rock

Paper

Scissors

Home

EOF sub make_action { my ($first,$second) = @_; my $what = action($first); $first = ucfirst($first); $second = ucfirst($second); return "$first $what $second"; } sub win { my ($player, $comp) = @_; if (($player eq "rock") && ($comp eq "paper")) { return "c"; } elsif (($player eq "rock") && ($comp eq "rock")) { return "d"; } elsif (($player eq "rock") && ($comp eq "scissors")) { return "p"; } elsif (($player eq "paper") && ($comp eq "paper")) { return "d"; } elsif (($player eq "paper") && ($comp eq "rock")) { return "p"; } elsif (($player eq "paper") && ($comp eq "scissors")) { return "c"; } elsif (($player eq "scissors") && ($comp eq "paper")) { return "p"; } elsif (($player eq "scissors") && ($comp eq "rock")) { return "c"; } elsif (($player eq "scissors") && ($comp eq "scissors")) { return "d"; } else { # Should never happen! return "ERROR"; } } sub action { my $first = shift; if ($first eq "rock") { return "smashes"; } elsif ($first eq "paper") { return "wraps"; } elsif ($first eq "scissors") { return "cut"; } } exit 0;