HTTP, Proxy, DNS, generator nahodnych cisel a delay

[David Rohleder]

"Alexandr Nikolski" <sash na volny.cz> writes:

> Dobry den,
> mam 3 dotazy:
> 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 ;
    }
}


> 3) Jaka funkce je v Perlu na generovani nahodnych cisel, a jaka pro to, aby
> mi nejaky cas program nic (vubec nic) nedelal (v pascalu delay)?
> 

srand rand
sleep(cas)

> Jo, a jeste. Muzete me odkazat na nejakou dokumentaci (nejradeji v cestine)?
> 
Absolutne dostacujici je:

Larry Wall, Tom Christiansen, Randal L. Schwartz: Programovani v
Jazyce Perl. (cesky preklad Computer Press)


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