Aprendiendo Perl, el reto: Encontrar duplicados

[Marcelo]

Hola,

brian d foy[0] comenzó a publicar en http://www.learning-perl.com/ una
serie de retos para la gente aprendiendo Perl.  Pensé que para alguna
gente podría ser útil tener el reto disponible en Español y no en
Inglés, además de poder conversar sobre las soluciones también en
Español.  Hasta que no monte otra cosa, les propongo hacerlo mediante
esta lista, si alguno tiene interés.

A continuación la traducción del post que brian publicó en
http://www.learning-perl.com/?p=286

------------------------------ 8< ------------------------------

Este es el segundo reto para novatos.  Voy a darles un problema que
deberían poder resolver solo con las cosas presentes en "Learning
Perl" (incluyendo el uso de módulos, es decir, la mayoría de Perl).
Más o menos una semana después publicaré una solución (NdT: me
comprometo a traducir las soluciones también).

Para este reto, dado un único directorio conteniendo archivos
posiblemente duplicados, encuentre los archivos que pueden ser
duplicados.  Solo debe imprimir los archivos duplicados e imprimir sus
nombres.  Si desea remover los duplicados, ¡asegúrese de tener un
backup!

Existen algunos módulos que pueden resultar útiles:

    Digest::MD5
    Digest::SHA1

Si se encuentra especialmente motivado, busque también en los
subdirectorios que encuentre.

------------------------------ >8 ------------------------------

Saludos y que se diviertan,

Marcelo

PS: Como pueden ver en el blog de Learning Perl, la gente que quiere
recibir retroalimentación publica sus soluciones allí.  Sería
buenísimo si la gente por acá hiciese lo mismo y los demás les den
opiniones.

[0] brian es coautor de "Learning Perl" en su última edición.  Él
prefiere escribir su nombre así como aparece acá, no estoy siendo
perezoso con las mayúsculas :-)