#!/usr/bin/perl -w<br>use strict;<br>use warnings;<br>use Net::Whois::Raw;<br><br>#Abre arquivo e grava consulta nele<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; open (TEMP, &quot;&gt; app.tmp&quot;) or die &quot;Arquivo não pode ser abero: $!\n\n&quot;;
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; my $Whois=whois($Dominio);&nbsp; #Consulta whois<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; print TEMP $Whois;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; close TEMP;<br><br>--------<br><br>Nesse trecho de código usei a bibliotec Net::Whois::Raw, quando consulto ele gera um arquivo testo com um conteúdo como este abaixo:
<br><br>----------<br>% Copyright <a href="http://registro.br">registro.br</a><br>%&nbsp; The data below is provided for information purposes<br>%&nbsp; and to assist persons in obtaining information about or<br>%&nbsp; related to domain name and IP number registrations
<br>%&nbsp; By submitting a whois query, you agree to use this data<br>%&nbsp; only for lawful purposes.<br>%&nbsp; 2007-02-22 13:24:42 (BRST -02:00)<br><br>domain:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <a href="http://terra.com.br">terra.com.br</a><br>owner:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Terra Networks Brasil 
S.A.<br>ownerid:&nbsp;&nbsp;&nbsp;&nbsp; 091.088.328/0006-71<br>responsible: Hostmaster Terra Networks<br>owner-c:&nbsp;&nbsp;&nbsp;&nbsp; MPL4<br>admin-c:&nbsp;&nbsp;&nbsp;&nbsp; MPL4<br>tech-c:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ALG3<br>billing-c:&nbsp;&nbsp; CTN25<br>nserver:&nbsp;&nbsp;&nbsp;&nbsp; <a href="http://ns1.terra.com.br">ns1.terra.com.br
</a> <a href="http://200.176.2.172">200.176.2.172</a><br>nsstat:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 20070218 AA<br>nslastaa:&nbsp;&nbsp;&nbsp; 20070218<br>nserver:&nbsp;&nbsp;&nbsp;&nbsp; <a href="http://ns2.terra.com.br">ns2.terra.com.br</a> <a href="http://200.176.2.173">200.176.2.173
</a><br>nsstat:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 20070218 AA<br>nslastaa:&nbsp;&nbsp;&nbsp; 20070218<br>created:&nbsp;&nbsp;&nbsp;&nbsp; 19981130 #129987<br>expires:&nbsp;&nbsp;&nbsp;&nbsp; 20071130<br>changed:&nbsp;&nbsp;&nbsp;&nbsp; 20061123<br>status:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; published<br><br>nic-hdl-br:&nbsp; ALG3<br>person:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Hostmaster Terra Networks
<br>e-mail:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <a href="mailto:domain@terra.com.br">domain@terra.com.br</a><br>created:&nbsp;&nbsp;&nbsp;&nbsp; 19971226<br>changed:&nbsp;&nbsp;&nbsp;&nbsp; 20050602<br><br>nic-hdl-br:&nbsp; CTN25<br>person:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Cobrança Terra Networks<br>e-mail:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <a href="mailto:idcobranca@terra.com.br">
idcobranca@terra.com.br</a><br>created:&nbsp;&nbsp;&nbsp;&nbsp; 20041103<br>changed:&nbsp;&nbsp;&nbsp;&nbsp; 20070124<br><br>nic-hdl-br:&nbsp; MPL4<br>person:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Hostmaster Terra Networks<br>e-mail:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <a href="mailto:domain@terra.com.br">domain@terra.com.br</a>
<br>created:&nbsp;&nbsp;&nbsp;&nbsp; 19980122<br>changed:&nbsp;&nbsp;&nbsp;&nbsp; 20061213<br><br>remarks:&nbsp;&nbsp;&nbsp;&nbsp; Security issues should also be addressed to<br>remarks:&nbsp;&nbsp;&nbsp;&nbsp; <a href="mailto:cert@cert.br">cert@cert.br</a>, <a href="http://www.cert.br/">http://www.cert.br/
</a><br>remarks:&nbsp;&nbsp;&nbsp;&nbsp; Mail abuse issues should also be addressed to<br>remarks:&nbsp;&nbsp;&nbsp;&nbsp; <a href="mailto:mail-abuse@cert.br">mail-abuse@cert.br</a><br><br>% <a href="http://whois.registro.br">whois.registro.br</a> accepts only direct match queries.
<br>% Types of queries are: domains (.BR), BR POCs, CIDR blocks,<br>% IP and AS numbers.<br>---------------------------------------<br><br>Nesta consulta não aparece o compo endereço da entidade do domínio, mas essa informação aparece na consulta feita pelo site.
<br><br>O que quero saber é como efetuar essa consulta e ter essa infromação que não aparece aqui????<br><br><br><div><span class="gmail_quote">On 2/22/07, <b class="gmail_sendername">Luis Motta Campos</b> &lt;<a href="mailto:luismottacampos@yahoo.co.uk" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">
luismottacampos@yahoo.co.uk</a>&gt; wrote:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
On Feb 22, 2007, at 2:42 PM, André Toledo wrote:<br>&gt; Preciso fazer uma aplcaço que retorne o campo de endereço da<br>&gt; entidade principal de um determinado dominio que eu passe para a<br>&gt; aplicaço perl.<br>&gt;
<br>&gt; Eu usei uma biblioteca Net::Whois::Raw, eu consigo pegar as<br>&gt; informaçes dos contatos do domnio, porem o campo endereço do ID<br>&gt; Identidade do dominio.<br>&gt;<br>&gt; Gostaria de saber se algum conhece alguma outra biblioteca que
<br>&gt; retorne essa informaço ou uma classe que eu passe o endereço da<br>&gt; pagina de consulta do <a href="http://registro.br" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">registro.br</a> e retorne o resultado do html
<br>&gt; como texto para eu tratar num arquivo???
<br><br>&nbsp;&nbsp; André, meu português deve estar falhando muito, por que eu não<br>consegui entender o seu problema.<br><br>&nbsp;&nbsp; Eu entendi certinho a parte em que você fala sobre pegar as<br>informações de contato de um domínio, mas depois que você escreveu
<br>&quot;porém&quot; eu não entendi mais o que você queria... Você pode por favor<br>elaborar isso um pouquinho mais?<br><br>&nbsp;&nbsp; O Registro.BR implementa uma série de medidas anti-phishing, pode<br>ser complicado obter informações gratuítas deles em volume muito
<br>grande. Dependendo do que você está fazendo, vale à pena entrar em<br>contato; eu tenho certeza de que, com um pouco de paciência e alguma<br>camaradagem, você vai conseguir acesso a uma interface mais<br>interessante que a oferecida via HTTP.
<br><br>&nbsp;&nbsp; Aguardo tua explicação e um bom exemplo de código para te ajudar<br>mais que isso.<br>&nbsp;&nbsp; Putamplexos!<br>--<br>Luis Motta Campos is a software engineer,<br>perl fanatic evangelist, and amateur {cook, photographer}
<br><br><br>_______________________________________________<br>Cascavel-pm mailing list<br><a href="mailto:Cascavel-pm@pm.org" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">Cascavel-pm@pm.org</a>
<br><a href="http://mail.pm.org/mailman" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">http://mail.pm.org/mailman</a>/listinfo/cascavel-pm
<br></blockquote></div><br><br clear="all"><br>-- <br>André Luís Toledo <br>--------------------------------------------------------<br><a href="mailto:toledo.andre@gmail.com" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">
toledo.andre@gmail.com</a><br>+55 (19) 8115-4255
<br>MSN: <a href="mailto:toledo_biker@hotmail.com" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">toledo_biker@hotmail.com</a><br>Glory and honor to the Lord All Mighty!<br>In a world without wall and fences, who needs windows and gates?
<br>Linux debian 2.6.16-1-k7-smp
 #2 SMP Thu Sep 28 11:11:35 UTC 2006 i686 GNU/Linux