Aprendiendo Perl, el reto: Encontrar duplicados
Marcelo
marcelo.magallon en gmail.com
Lun Abr 16 18:50:44 PDT 2012
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 :-)
Más información sobre la lista de distribución Costarica-pm