#!/usr/bin/perl -w<br>use strict;<br>use warnings;<br>use Net::Whois::Raw;<br><br>#Abre arquivo e grava consulta nele<br> open (TEMP, "> app.tmp") or die "Arquivo não pode ser abero: $!\n\n";
<br> my $Whois=whois($Dominio); #Consulta whois<br> print TEMP $Whois;<br> 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>% The data below is provided for information purposes<br>% and to assist persons in obtaining information about or<br>% related to domain name and IP number registrations
<br>% By submitting a whois query, you agree to use this data<br>% only for lawful purposes.<br>% 2007-02-22 13:24:42 (BRST -02:00)<br><br>domain: <a href="http://terra.com.br">terra.com.br</a><br>owner: Terra Networks Brasil
S.A.<br>ownerid: 091.088.328/0006-71<br>responsible: Hostmaster Terra Networks<br>owner-c: MPL4<br>admin-c: MPL4<br>tech-c: ALG3<br>billing-c: CTN25<br>nserver: <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: 20070218 AA<br>nslastaa: 20070218<br>nserver: <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: 20070218 AA<br>nslastaa: 20070218<br>created: 19981130 #129987<br>expires: 20071130<br>changed: 20061123<br>status: published<br><br>nic-hdl-br: ALG3<br>person: Hostmaster Terra Networks
<br>e-mail: <a href="mailto:domain@terra.com.br">domain@terra.com.br</a><br>created: 19971226<br>changed: 20050602<br><br>nic-hdl-br: CTN25<br>person: Cobrança Terra Networks<br>e-mail: <a href="mailto:idcobranca@terra.com.br">
idcobranca@terra.com.br</a><br>created: 20041103<br>changed: 20070124<br><br>nic-hdl-br: MPL4<br>person: Hostmaster Terra Networks<br>e-mail: <a href="mailto:domain@terra.com.br">domain@terra.com.br</a>
<br>created: 19980122<br>changed: 20061213<br><br>remarks: Security issues should also be addressed to<br>remarks: <a href="mailto:cert@cert.br">cert@cert.br</a>, <a href="http://www.cert.br/">http://www.cert.br/
</a><br>remarks: Mail abuse issues should also be addressed to<br>remarks: <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> <<a href="mailto:luismottacampos@yahoo.co.uk" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">
luismottacampos@yahoo.co.uk</a>> 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>> Preciso fazer uma aplcaço que retorne o campo de endereço da<br>> entidade principal de um determinado dominio que eu passe para a<br>> aplicaço perl.<br>>
<br>> Eu usei uma biblioteca Net::Whois::Raw, eu consigo pegar as<br>> informaçes dos contatos do domnio, porem o campo endereço do ID<br>> Identidade do dominio.<br>><br>> Gostaria de saber se algum conhece alguma outra biblioteca que
<br>> retorne essa informaço ou uma classe que eu passe o endereço da<br>> 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>> como texto para eu tratar num arquivo???
<br><br> André, meu português deve estar falhando muito, por que eu não<br>consegui entender o seu problema.<br><br> 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>"porém" eu não entendi mais o que você queria... Você pode por favor<br>elaborar isso um pouquinho mais?<br><br> 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> Aguardo tua explicação e um bom exemplo de código para te ajudar<br>mais que isso.<br> 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