Foro - Perl en Español

Claro, muchas gracias.
¿Me podrías ayudar con algunas partes? Generalmente variables que no me quedan muy claras del todo, como :



Ya las he quitado del código y he visto para qué sirven pero si me puedes confirmar mi teoría , te escribí la línea en la que aparecen y como comentario la parte específica para que no hayan marañas; la primera es la que aún me cuesta más.

Por favor.

Es el operador sustitución. Se buscan todos (g) los conjuntos de espacios (\s+) que están al principio (^) o (|) al final ($) de la cadena. Y esos conjuntos se sustituyen por nada (//). El efecto final es quitar los espacios en blanco que están delante y detrás de la cadena.

Más información en perldoc -f s, en perlop, en la sección Regexp Quote Like Operators (traducido).

Es la función de "filtrado". Dada una lista de valores en la parte derecha, es filtrada hacia la parte izquierda, según lo indique la condicional.

Más información en tu propio ordenador en perldoc -f grep, en perlfunc, y en la Web (traducido).

Es el operador de comparación de igualdad entre cadenas de caracteres. Está comparando el valor contenido en $in con el valor contenido en $_;

Más información en tu propio ordenador en perldoc perlop, en la sección Operadores de igualdad (Equality Operators) y en la Web (traducido).

select() sirve para muchas cosas, pero en la línea que pones, es que Perl solicite una espera de 40 milisegundos al sistema operativo.

Más información en tu propio ordenador en perldoc -f select, y en la Web (traducido).

$x -= $xdir * $_;

es equivalente a

$x = $x - ($xdir * $_);

Más información en perlop, en la sección de operadores de asignación.

La función map{} "mapea" la lista de elementos que hay a la derecha hacia la izquierda, según lo que indique el primer argumento.

En este caso, está leyendo los elementos de @board, pasando uno por uno a través de $_, y como la expresión de map() es @$_ quiere decir que $_ es una referencia a un array, así que @$_ devuelve todos los elementos apuntados por $_ (el efecto final es recorrer una matriz de dos dimensiones, elemento a elemento). Cada elemento es pasado a grep(), en un nuevo $_, que pregunta si cada celda es igual a " ". Si no (not) es así, el if() se activa.

El resultado final es que el if() se dispara si hay al menos una celda en la matriz que es distinta de " ".

El código está demasiado comprimido. Si es tu primer proyecto, todo esto te estará liando demasiado.

Compañeros, ¿cómo creen que pueda hacer para pasar el código o 'juego' para jugar contra la PC? No sé, tal vez un método de random pero definiendo de un numero entre 1 a 8.



¡Ahhmmm! No sé, algo para empezar. Por favor.

Con esto el programa puede elegir una columna para poner la "ficha".

Otro tema es que el programa tenga "inteligencia". Y de menos a más... Ejemplo:

* buscar columna con tres fichas, colocar nuestra ganadora

* lo mismo para filas

* lo mismo para diagonales

* buscar filas donde hay dos o tres fichas del programa y tienen casillas libres a los lados. En ese caso, colocar la ficha en una de estas columnas libres

* "molestar" al jugador humanos en las formaciones de dos fichas seguidas suyas (evitar la formación de 3 seguidas)

* etcétera...

He puesto, por ejemplo, el random en la línea 101 y línea 27 del código, sustituyendo el <STDIN> pero me quedaría igual para dos jugadores pero solo la PC no me deja intervenir.

No entiendo la pregunta...

Bueno, cómo hago para jugar contra la PC, no importa si no se defiende, yo me encargaría de eso, pero ocupo saber dónde intervenir en el código para poner a jugar a la PC.

Supongo que en la fase de turnos.

Hay un turno para el jugador humano, y otro para la máquina... cada uno entra o elige una jugada, que ha de ser verificada si es legal, y comprobar luego si el juego ha terminado. Y si no, repetimos turnos.