HTTP, Proxy, DNS, generator nahodnych cisel a delay

[David Rohleder]

adelton na informatics.muni.cz (Honza Pazdziora) writes:

> > > 2) Jak zjistim IP adresu pocitace pomoci DNS serveru?
> > 
> > use Net::DNS;
> > 
> > my $host=shift;
> > 
> > my $res=new Net::DNS::Resolver;
> > 
> > my @DNSHOSTADDRS = ();
> > 
> > my $query = $res->query($host, "A");
> > 
> > if ($query) {
> >     my $rr;
> >     foreach $rr ($query->answer) {
> >         # print $rr->type,"\n";
> >         next unless $rr->type eq "A";
> >         push @DNSHOSTADDRS, $rr->address ;
> >     }
> > }
> 
> Proc takhle slozite?
> 
> Ciste podle perlfunc(1) jde
> 
> my ($name, $aliases, $addrtype, $length, @addrs) = gethostbyname('aisa');
> local $" = '.';
> for (@addrs) { @ip = unpack "C4", $_; print "@ip\n" }
> __END__
> 

Tak jo. Ten priklad jsem vyhrabl z nejakeho sveho programu pro
kontrolu DNS.

-- 
-------------------------------------------------------------------------
David Rohleder						davro na ics.muni.cz
Institute of Computer Science, Masaryk University
Brno, Czech Republic
-------------------------------------------------------------------------