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";

Automatizando o envio de arquivo p/ o FTP !

Sarg Semanal

Tradutor Babelfish

Postando mensagem no Facebook com Perl

Pagerank Checker