Los juegos:: Naipes:: Póker son un módulo Perl para funciones de Póker Perl Puras.

SINOPSIS

use Juegos:: Naipes:: Póker;

# El Trato Cuatro (4) manos de jugadores y los marca...
mi $players = 4; # el número de jugadores para conseguir manos trató
mi $hand_size = 5; # número de naipes para tratar a cada jugador
mis @hands = () ;# jugador dan datos
mi @deck = Arrastre (Cubierta ());

mientras ($players-) {
empuje ({$hands [$players]}, música pop (@deck)) foreach (1.. $hand_size);
printf ("resultado de Player$players: % 4to hand:@ {$hands [$players]} n",
ScoreHand ({$hands [$players]}));
}

El póker proporciona unas funciones a crear cubiertas de naipes y manipularlos para juegos de Póker simples o simulaciones.