Script usado para fazer o download usando o wget de todas as imagens de determinada URL. Por exemplo, se você estiver visitando um álbum de fotos e deseja salvar as 50 fotos que aparecem numa única página, ao invés de clicar 50 vezes com o mouse e escolher  "Salvar como ...", você executa o getImages.pl

• Download getImages.zip
• Enviar nova versão

Esconder código-fonte

#!/usr/bin/perl
# +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
# getImages.pl
#
# Script usado para fazer o download usando o wget de todas as 
# imagens de determinada URL. Por exemplo, se você estiver visitando 
# um álbum de fotos e deseja salvar as 50 fotos que aparecem numa 
# única página, ao invés de clicar 50 vezes com o mouse e escolher 
# "Salvar como ...", você executa o getImages.pl
# 
#
# Programado por Fábio Berbert de Paula <fabio@vivaolinux.com.br>
# Na web em: www.vivaolinux.com.br
#
# Rio de Janeiro, 05 de Agosto de 2002
# +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

# carregar os módulos necessários
use strict;

use IO::Socket;

# -----------------------------------
# configure as variáveis abaixo
my $site = "www.enderecodosite.com";
my $url = "/nomedapagina.html";
# -----------------------------------

# vou abrir uma conexão socket com o site e baixar o código HTML da página
my $post = new IO::Socket::INET-> new (
        PeerAddr  => $site,
        PeerPort  => "80",
        Proto     => "tcp",
        Type      => SOCK_STREAM,
        Timeout   => "30"
);

# requisitar a URL em questão
my $header = "GET $url HTTP/1.0\r\nHost: $site\r\n\r\n";
$post->send($header);
while (my $saida = <$post>) {
   # processar cada tag <img src="..."> ....
   if ($saida =~ /img src=\"(.*)\"/i) {
      my $img = $1;
      $img =~ s/\".*$//;
      $img =~ s/\(/\\\(/;
      $img =~ s/\)/\\\)/;
      print "Baixando $img ...\n";
      system("wget -c $site/$img 1>/dev/null 2>/dev/null");
   }
}
print "Divirta-se !!!\n";

Burlando o "Protetor de links" INVERTIDO para download grátis

Script para fazer buscas no arquivo de logs do squid

Iniciando desenvolvimento web ágil com Perl (Mojolicious)

Buscar Traduções no Google Translate

Google Tradutor