#!/usr/bin/perl -w
use strict;
use LWP::UserAgent;
sub browser {
my $url = shift;
my @mails;
my $browser = LWP::UserAgent->new;
$browser->agent("solocodigoSpider/0.1");
my $req = HTTP::Request->new(GET => "$url");
$req->header('Accep' => 'text/html');
my $respuesta = $browser->request($req);
if($respuesta->is_success) {
my $pagina = $respuesta->decoded_content;
$pagina =~ s/\</ /g;
$pagina =~ s/\>/ /g;
$pagina =~ s/\^M/ /g;
$pagina =~ s/\// /g;
$pagina =~ s/br/ /g;
$pagina =~ s/tr/ /g;
$pagina =~ s/td/ /g;
my @todo = split / /, $pagina;
foreach my $palabra (@todo) {
if($palabra =~ /^href=\"mailto:(.*)$/){
$palabra =~ s/href=\"mailto://g;
$palabra =~ s/\"//g;
push @mails, $palabra;
}
}
}
else {
die "Error: ", $respuesta->status_line, "\n";
}
return @mails;
}
die "Como usar: perl encontrarmail.pl http://pagina.com" unless @ARGV
my @mail = browser("$ARVG[0]");
print "Mails: ", @mail, "\n";