Tic Tac Toe game can be also programmed with the perl module from CPAN. Only a few line of code and the game is ready to play. How it can be done?<\/p>\n
First assuming the perl is already installed and this is a Windows operating system type ppm from command prompt. This will open Perl Package Manager. Find Games-TicTacToe module and install it using PPM program. <\/p>\n
Now you can create the perl script as following:<\/p>\n
use strict;
\nuse warnings;
\nuse Games::TicTacToe;
\nmy $tictactoe = Games::TicTacToe->new();
\n$tictactoe->addPlayer();
\nwhile (!$tictactoe->isGameOver())
\n { $tictactoe->play(); }<\/p>\n
This perl script can be used from command prompt. Here is the example of the screen:<\/p>\n
C:\\>perl ttt_cpan_console_game.cgi
\nPlease select the player [H – Human, C – Computer]:H
\nPlease select the symbol [X \/ O]: X
\nWhat is your next move [1,2,3,4,5,6,7,8,9]? 3
\nWhat is your next move [1,2,4,6,7,8,9]? 1
\nWhat is your next move [4,6,7,8,9]? 1
\nPlease make a valid move [4,6,7,8,9]: 6
\n+———–+
\n| TicTacToe|
\n+—+—+—+
\n| X | O | X |
\n+—+—+—+
\n| 4 | O | X |
\n+—+—+—+
\n| 7 | O | 9 |
\n+—+—+—+
\n Congratulation, Computer won the game. Since it is not easy to convert numbers into 2-dimensional board here is the some modification where the board is showed after each move – so it is easy to choose the number.<\/p>\n
use Games::TicTacToe;
\nmy $tictactoe = Games::TicTacToe->new();
\n$tictactoe->addPlayer();
\nwhile (!$tictactoe->isGameOver())
\n { $tictactoe->play();
\n print $tictactoe->{‘board’}->as_string();
\n } <\/p>\n
You can also use print $tictactoe->getGameBoard(); to print the board.
\nHere is the example of screen:
\nC:\\>perl ttt_cpan_console_game_simple2.cgi
\nPlease select the player [H – Human, C – Computer]: H
\nPlease select the symbol [X \/ O]: X
\nWhat is your next move [1,2,3,4,5,6,7,8,9]? 3
\n +———–+
\n| TicTacToe |
\n+—+—+—+
\n| 1 | 2 | X |
\n+—+—+—+
\n| 4 | 5 | 6 |
\n+—+—+—+
\n| 7 | 8 | 9 |
\n+—+—+—+
\n +———–+
\n| TicTacToe |
\n+—+—+—+
\n| 1 | 2 | X |
\n +—+—+—+
\n| 4 | O | 6 |
\n+—+—+—+
\n| 7 | 8 | 9 |
\n+—+—+—+
\nWhat is your next move [1,2,4,6,7,8,9]? 2
\n +———–+
\n| TicTacToe |
\n +—+—+—+
\n| 1 | X | X |
\n+—+—+—+
\n| 4 | O | 6 |
\n+—+—+—+
\n| 7 | 8 | 9 |
\n+—+—+—+
\n+———–+
\n | TicTacToe |
\n+—+—+—+
\n| O | X | X |
\n+—+—+—+
\n| 4 | O | 6 |
\n+—+—+—+
\n| 7 | 8 | 9 |
\n+—+—+—+
\nWhat is your next move [4,6,7,8,9]? 9
\n+———–+
\n| TicTacToe |
\n +—+—+—+
\n| O | X | X |
\n+—+—+—+
\n| 4 | O | 6 |
\n+—+—+—+
\n| 7 | 8 | X |
\n+—+—+—+
\n +———–+
\n | TicTacToe |
\n+—+—+—+
\n| O | X | X |
\n+—+—+—+
\n | 4 | O | O |
\n+—+—+—+
\n | 7 | 8 | X |
\n +—+—+—+
\n What is your next move [4,7,8]? 4
\n+———–+
\n| TicTacToe |
\n +—+—+—+
\n| O | X | X |
\n +—+—+—+
\n| X | O | O |
\n+—+—+—+
\n| 7 | 8 | X |
\n+—+—+—+
\n+———–+
\n| TicTacToe |
\n+—+—+—+
\n| O | X | X |
\n +—+—+—+
\n| X | O | O |
\n +—+—+—+
\n| O | 8 | X |
\n+—+—+—+
\nWhat is your next move [8]? 8
\n+———–+
\n| TicTacToe |
\n+—+—+—+
\n| O | X | X |
\n+—+—+—+
\n| X | O | O |
\n+—+—+—+
\n| O | X | X |
\n+—+—+—+
\n+———–+
\n| TicTacToe |
\n +—+—+—+
\n| O | X | X |
\n+—+—+—+
\n| X | O | O |
\n+—+—+—+
\n| O | X | X |
\n+—+—+—+
\nGame drawn !!!
\nSo only a few lines are needed to create game with CPAN perl module Games::TicTacToe.
\nHowever this only 3 by 3 game. Also this is a console based game where the user is playing against computer by entering the moves through answering the questions. Any suggestions, comments and ideas how to make this game web based are welcome.<\/p>\n","protected":false},"excerpt":{"rendered":"