#!/usr/bin/perl
#######################
# A two player tic-tac-toe game. Each square is an image that will change to
# display an X or O when clicked on by the appropriate player.
#######################
use warnings;
use strict;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
print "Content-type: text/html\n\n";
my $a1= param("a1") || ("blank");
my $a2= param("a2") || ("blank");
my $a3= param("a3") || ("blank");
my $b1= param("b1") || ("blank");
my $b2= param("b2") || ("blank");
my $b3= param("b3") || ("blank");
my $c1= param("c1") || ("blank");
my $c2= param("c2") || ("blank");
my $c3= param("c3") || ("blank");
my $who = newplayer(param("whichplayer"));
my $whowas = whowas(param("whichplayer"));
my @winner = ("$whowas","$whowas","$whowas");
&winner;
print qq (
Buttons
Current player: $who
);
print "
Parameters passed :
\n";
foreach my $name ( param ){
print $name , " => '" , param($name), "'
\n";
}
print "
\n";
sub newplayer {
my ($who)=@_;
if ($who eq "o") {
return "x";
}
elsif ($who eq "x") {
return "o";
}
return "x";
};
sub whowas {
my ($who)=@_;
if ($who eq "o") {
return "x";
}
elsif ($who eq "x") {
return "o";
}
return "blank";
};
sub winner {
my @win1=($a1,$a2,$a3);
my @win2=($b1,$b2,$b3);
my @win3=($c1,$c2,$c3);
my @win4=($a1,$b2,$c3);
my @win5=($c1,$b2,$a3);
if(
($winner[0] eq $win1[0] && $winner[1] eq $win1[1] && $winner[2] eq $win1[2])
) {
print("$who is the winner!");
}
}