Foro - Perl en Español

Tengo dos carpetas con archivos. La carpeta 1 contiene archivos con extensión TXT; La segunda contiene archivos con extensión XML. Necesitaba saber qué nombres de ficheros, obviando la extensión, están en la carpeta 1 y no están en la carpeta 2. He logrado hacer un script para conseguir esto, que es el que copio a continuación:


Sin embargo, las últimas líneas del script no son cosa mía. Simplemente copié y adapté un código que encontré en Internet para comparar arrays. Me gustaría entenderlo bien para saber usarlo y/o adaptarlo a otras necesidades en el futuro.

¿Alguien me podría explicar literalmente lo que quieren decir las líneas 18, 19 y 20 del código anterior? Soy consciente de que debo aprender a usar hashes en Perl.

Gracias.

Línea 18: se declara un hash llamado %array2_elements.

Línea 19: se inicializa el contenido de %arra2_elements, usando los elementos de @arrays como claves, y... el valor indefinido como valores correspondientes a esas claves. Esa línea es equivalente a estas:

Lo que estamos haciendo, es crear un hash cuyas claves son los mismos elementos que los que contiene @array2.

Línea 20: Se recorren los elementos de @array1. Por cada uno de ellos, vemos a ver si existe o no ese elemento como clave de %array2_elements. Si no existe, lo almacenamos en @array3. Escrito de otra manera:


El efecto neto es que en @array3 quedan los elementos de @array1 que no están en @array2. Vamos, que hemos hecho una "diferencia" entre conjuntos

Tienes más soluciones a preguntas sobre arrays en perldoc -q array, en tu propio ordenador.

Muchas gracias por tu explicación, explorer. Era justo lo que pedía. Me quedó claro.