<HTML><BODY style="word-wrap: break-word; -khtml-nbsp-mode: space; -khtml-line-break: after-white-space; "><BR><DIV><DIV>On 2007/03/29, at 13:10, &lt;<A href="mailto:stenio.morais@caixa.gov.br">stenio.morais@caixa.gov.br</A>&gt; &lt;<A href="mailto:stenio.morais@caixa.gov.br">stenio.morais@caixa.gov.br</A>&gt; wrote:</DIV><BR class="Apple-interchange-newline"><BLOCKQUOTE type="cite"><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">Galera,</DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; min-height: 14px; "><BR></DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">Eu não quero de forma alguma construir um buscador não. Longe disto.</DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; min-height: 14px; "><BR></DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">So quero analisar pegar os links que os buscadores retorna a cada consulta realizada.</DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; min-height: 14px; "><BR></DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">Meu problema eh que são milhares de consulta<SPAN class="Apple-converted-space">  </SPAN>e devem ser feitas em vários Buscadores (Yahoo, AltaVista, GOoble, INFSeeach, Excite, TodoBR, Terra, RadarUol, MSN...e ai vai... ). Por isso quero descartar o uso de API própria de cada buscador.</DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; min-height: 14px; "><BR></DIV></BLOCKQUOTE><BR></DIV><DIV>Stenio,</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>Eu sugiro a utilização do LWP. Mas você pode utilizar a API do provedor do serviço, quando existente de maneira independente. Abaixo segue um exemplo do que *eu* faria prá isso acontecer. Substitua os '...' pela implementação e voi-lá!</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>&lt;code&gt;</DIV><DIV>sub search_google {</DIV><DIV>    my $query_text = shift;</DIV><DIV>    ...</DIV><DIV>    return [ @search_results ];</DIV><DIV>}</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>sub search_yahoo {</DIV><DIV>    my $query_text = shift;</DIV><DIV>    ...</DIV><DIV>    return [ @search_results ];</DIV><DIV>}</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>sub search_msn {</DIV><DIV>    my $query_text = shift;</DIV><DIV>    ...</DIV><DIV>    return [ @search_results ];</DIV><DIV>}</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>my $dispatcher = {</DIV><DIV>    'yahoo' =&gt; \&amp;search_yahoo,</DIV><DIV>    'google' =&gt; \&amp;search_google,</DIV><DIV>}</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>sub search {</DIV><DIV>    my $query_text = shift;</DIV><DIV>    my $results = {};</DIV><DIV>    foreach (keys %$dispatcher) {</DIV><DIV>        $results{$_} = $dispatcher-&gt;{$_}-&gt;($query_text);</DIV><DIV>    }</DIV><DIV>    return $results;    </DIV><DIV>}</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>my $results = search('política');</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>print Dumper $results;</DIV><DIV>&lt;/code&gt;</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>Espero que ajude!</DIV><BR><DIV> <SPAN class="Apple-style-span" style="border-collapse: separate; border-spacing: 0px 0px; color: rgb(0, 0, 0); font-family: Lucida Grande; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; text-align: auto; -khtml-text-decorations-in-effect: none; text-indent: 0px; -apple-text-size-adjust: auto; text-transform: none; orphans: 2; white-space: normal; widows: 2; word-spacing: 0px; "><DIV>--</DIV><DIV>Igor Sutton</DIV><DIV><A href="mailto:igor.sutton@gmail.com">igor.sutton@gmail.com</A></DIV><DIV><BR class="khtml-block-placeholder"></DIV><BR class="Apple-interchange-newline"></SPAN> </DIV><BR></BODY></HTML>