Bom dia !<br><br>Estou fazendo um spider e estou tendo problemas para retirar o objeto WWW::Scripter da memória.<br><br>Esse módulo é bem interessante para evitar que você tenha que estudar o Javascript que o 'brilhante' designer fez e devolve a saída desse Javascript em formato HTML. Até aí, tudo bem! Funciona! Maravilha!<br>
<br>O problema é que eu preciso que isso funcione em um spider onde eu tenho várias iterações com esse objeto, e para cada 'get' que ele faz em cima de uma página, ele reserva um novo espaço na memória que não libera nunca. <br>
<br>Lendo a documentação, eu vi que existe um método 'clear_history', mas aparentemente não serve para isso que eu estou querendo. Tentei forçar uma chamada para DESTROY, mas também não está funcionando. Abaixo tem um segmento de código que pode ajudar vocês a me ajudarem.<br>
<br><code><br>.<br>.<br>.<br> my $scripter = WWW::Scripter->new;<br> $scripter->use_plugin('JavaScript');<br> $scripter->max_history(1);<br> while(defined($tree)){<br> my @products = $tree->findnodes("/html/body/div[\@id='container']/div[\@id='geral']/center/div[\@id='centro']/div[\@id='centro2_int']/div[\@id='produtos-vitrine']/div");<br>
<br> print "\n\n#################################ACHEI " . @products . "PRODUTOS!\n\n";<br> foreach my $p(@products){<br> if($p){<br> print "\n\n" . $p->as_HTML;<br>
#link/imagem<br> my ($prelink) = $p->findnodes('a');<br> if($prelink) {<br> my $u = $prelink->attr('href');<br> $u = decode_entities($u);<br>
$self->product->url_original($u);<br> $self->product->url($self->product->url_original. '&frompartner=3212');<br> my $preimg = $prelink->look_down(_tag => 'img');<br>
if($preimg){<br> $self->product->imagem($preimg->attr('src'));<br> }<br> <br> #Capturando detalhes<br># print "\n\nURL: " . $self->product->url_original . "\n\n";<br>
eval{$self->agent->get($self->product->url_original)};<br> if($self->agent->success){<br> $scripter->get($self->product->url_original);<br>
my $dtree = HTML::TreeBuilder::XPath->new_from_content($self->agent->content);<br> $self->get_detail($dtree , $scripter);<br> }else {<br>.<br>
.<br>.<br> }<br>.<br>.<br>.<br> }<br>}<br><br></code><br><br>Este é um segmento de código onde eu já observei que ocorre o problema mencionado mais acima.<br><br>Por favor não comentem sobre 'use strict e use warnings' !! Ambos estão devidamente em seus lugares mais acima no código.<br>
<br>Página do módulo:<a href="http://search.cpan.org/%7Esprout/WWW-Scripter-0.010/lib/WWW/Scripter.pod"><b>WWW::Scripter</b></a><br><br><br><br>Obrigado!<br><br>-- <br>André Garcia Carneiro<br>Analista/Desenvolvedor Perl<br>
(11)82907780<br>