Lo que yo suelo hacer es copiar el codigo fuente de dicha pagina y pegarla en el notepad, despues ejecuto el script y le paso la ruta del mismo,(si esta en la misma carpeta con poner el nombre del archivo vale sino hay que ponerle la ruta absoluta).
Weno aqui os dejo el, codigo en caso de Windows aconsejo usar el ActivePerl en caso de linux simplemente tirar de repositorios =).
#!/bin/perl
print("Dame la ruta del archivo para reconocer los Links: \n");
$nombre=< stdin > ;
open(ENTRADA,"<$nombre") || die "Error de apertura\n";
open(SALIDA,">links.txt") || die "Error de escritura\n";
foreach $val (< ENTRADA >)
{
@link=($val =~ /(\w+\:\/+\w+\.\w+\.\w+\/\?\w\=\w+|\w+\:\/+\w+\.\w+\.\w+\/\w+\/\?\w\=\w+)/);
if("$link[0]" eq ""){}
else{
print SALIDA "$link[0]\n";}
}
print("Gracias por usar la juanpamatic3000 tienes tus links limpios en links.txt\n");
< stdin >
Si no os va bien del todo probar a borrar los espacios que hay en los simbolos < y >. Espero que os sea util =).
