Foro - Perl en Español

Casi lo tienes... pero hay algunos conceptos que debes aprender, de cada función.

Busca en este foro, por ejemplos con readdir().

Haces correctamente el opendir().

En cambio, con readdir(), debes saber que es una función que te devuelve un resultado. En la segunda línea la llamas, pero no obtienes su resultado.

Luego defines correctamente el destino. El origen también, aunque estás repitiendo la primera línea. Podrías haberte ahorrado un poco de escritura.

En el bucle, haces la comparación nuevamente con readdir(), pero lo usas de forma equivocada porque esa función no devuelve el número de ficheros.

Luego, en el copy, estás intentando obtener el fichero de origen desde la variable @org, pero... ¿dónde se rellena?