Script usado para extrair todos os links e imagens contidos no código HTML
de determinada URL. O navegador lynx é usado no auxílio da tarefa, ou melhor,
ele que processa os links, nós apenas formatamos a saída :)

• Download processarLynx.zip
• Enviar nova versão

Esconder código-fonte

#!/usr/bin/perl
# +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
# processarLynx.pl
#
# Script usado para extrair todos os links e imagens contidos 
# no código HTML de determinada URL. O navegador lynx é usado no
# auxílio da tarefa, ou melhor, ele que processa os links, nós
# apenas formatamos a saída :)
# 
# Requisitos:
#             * lynx
#
#
#
# Programado por Fábio Berbert de Paula <fabio@vivaolinux.com.br>
# Na web em: www.vivaolinux.com.br
#
# Rio de Janeiro, 24 de Julho de 2002
# ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

use strict;

my $lynx = '/usr/bin/lynx';

my $url = shift;
if (!$url) {
   print "Você precisa informar uma URL !\nUse: $0 endereco_da_pagina\n\n";
   exit(0);
}

my $addlink = 0;
my $out = `$lynx -dump -image_links $url`;

foreach my $linha (split(/\n/,$out)) {
  # se a linha iniciar com a string Referências ou References
  if ( $linha =~ /^(Referências|References)/ ) { $addlink = 1; }
  # pule para o próximo enquanto não chegarmos a parte que mostra os links
  if (!$addlink) { next; }
  # remova os espaços em branco do início da linha
  do {} while ($linha =~ s/^ //);
  # expressão regular para pegar apenas o link processado
  if ($linha !~ /^[0-9]{1,5}\. (.*)$/) { next; }
  print $1 . "\n";
}

Getter - Gerencia downloads

Tweetin - Poste tweets pelo terminal

Iniciando desenvolvimento web ágil com Perl (Mojolicious)

Avisar por e-mail se o IP da conexão ADSL mudar

Postando mensagem no Facebook com Perl

Nenhum comentário foi encontrado.