sacalinks.pl

Imagino que quisieron bajar todos los mp3 del post anterior ¿verdad?. Aca les dejo un script en perl para bajar todos los links que existan en una página, asi después los pueden mandar a un gestor de descargas y ¡voilá! todo bajado sin tener que hacer cientos de clics.

#!/usr/bin/perl
#
# Scriptcito que dado un archivo html por parametro, 
# saca todos los links del mismo y los escupe a stdout
# Lautaro Mazzitelli - 2004

if( @ARGV < 1 ){ 
    die("Modo de uso: sacalinks.pl archivo.html\n\n");
}

open(fd,@ARGV[0]) || die("No se pudo abrir el archivo\n\n");

@lineas=<fd>;

foreach $linea (@lineas){
    if( $linea =~ /href="(.*)"/  || $linea =~ /href='(.*)'/ ){
        print "$1\n";
    }
}

close(fd);

Guardan la página de donde quieren bajar los archivos y luego "sacalinks.pl archivo.html" para ver por pantalla los links. Pueden redireccionar la salida a un archivo para mayor comodidad. Lo pueden hacer de la siguiente manera:

lmazzi@linux:~$ sacalinks.pl mipagina.html > mislinks.txt

No abusen :)

Autor: mazzi | Categoria: Tips & Tricks | 7:38 PM | Comentarios (1) | Permalink

No se si puedo usarlo, bajo que licencia lo liberaste? =)