Foro - Perl en Español

El proceso es el siguiente:

• my %visto; # declaramos un hash
• iniciamos el bucle
• sacamos las URL de la página
• para cada una de ellas, y después de comprobar que es !~ /$ver/ (o antes, da igual)
• comprobamos si existe $visto{$link}. Si existe, es que ya lo hemos visto, entonces, saltamos al siguiente
• si no,
• hacemos $visto{$link} = 1; # indicamos que ese $link ya lo estamos viendo
• nos bajamos el enlace y lo analizamos, sus enlaces

La idea es que el hash controla si hemos visto o no cada enlace. Si lo hemos visto, pasamos al siguiente. Si no lo hemos visto, lo indicamos en el propio hash, y lo analizamos.