#!/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 $whowas = param("whichplayer");
my @winner = ("$whowas","$whowas","$whowas");
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");
print "whowas has $whowas
";
my $who = newplayer(param("whichplayer"));
&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)=@_;
print "inside whowas, who holds the value $who
";
if ($who eq "o") {
return "x";
}
elsif ($who eq "x") {
return "o";
}
return "blank";
};
sub winner {
#my ($a1,$a2,$a3,$b1,$b2,$b3,$c1$c2,$c3)=@_;
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);
my @win6=($a1,$b1,$c1);
my @win7=($a2,$b2,$c2);
my @win8=($a3,$b3,$c3);
if (
$winner[0] eq $win1[0] && $winner[1] eq $win1[1] && $winner[2] eq $win1[2] ||
$winner[0] eq $win2[0] && $winner[1] eq $win2[1] && $winner[2] eq $win2[2] ||
$winner[0] eq $win3[0] && $winner[1] eq $win3[1] && $winner[2] eq $win3[2] ||
$winner[0] eq $win4[0] && $winner[1] eq $win4[1] && $winner[2] eq $win4[2] ||
$winner[0] eq $win5[0] && $winner[1] eq $win5[1] && $winner[2] eq $win5[2] ||
$winner[0] eq $win6[0] && $winner[1] eq $win6[1] && $winner[2] eq $win6[2] ||
$winner[0] eq $win7[0] && $winner[1] eq $win7[1] && $winner[2] eq $win7[2] ||
$winner[0] eq $win8[0] && $winner[1] eq $win8[1] && $winner[2] eq $win8[2]
) {
print("$whowas is the winner!");
}
else {
print "win1 holds: |@win1|, winner holds:|@winner|";
print "Nobody wins";
}
}