🚀 go-pugleaf

Alan Ghafour (alan@gdansk.sprint.pl) wrote:
: Probuje zrobic gethostbyaddr() i za ... mi nie wychodzi :-(
: Moze ktos przesledzi ponizszy kawalek i powie gdzie jest blad ?

: #! /usr/bin/perl

: $host="pingwin.ds2.pg.gda.pl";
: $addr="153.19.170.112";

: #############################################
: # Resolving na podstawie nazwy dziala poprawnie !

: ($a,$b,$c,$d)=unpack("C4",gethostbyname($host));
: $IP=join(".",$a,$b,$c,$d);
: print $host,"\n", $IP, "\n";

: #############################################
: # A na podstawie adresu nie :-(

: # Ani tak ...
: $name=gethostbyaddr($addr,AF_INET);
: print $name, "\n";

: # Ani tak
: $addr=pack("C4",$a,$b,$c,$d);
: $name=gethostbyaddr($addr,AF_INET);
: print $name,"\n";
a sprobouj tak ( u mnie dziala):
$addr="148.81.83.5";
($h1,$h2,$h3,$h4)=split(/\./,$addr,4);
$packed=pack('C4',$h1,$h2,$h3,$h4);
($name,$aliases,$type,$len,@addr)=gethostbyaddr($packed,2);
print "$name\n";
 
 a w pozostalych zmiennych masz reszte danych....
 pewnie da sie to prosciej napisac, ale tak jest czytelnie :)
 KL

:  __ __ __  _ _  _ ___   _  _ ___ ___   ______         Alan Ghafour 
: (_  |_)|_) | |\ |  | __ |\ | |_   |   [/~~~~\]    Network Administrator
: __) |  | \ | | \|  |    | \| |__  |    |_()_|     alan@gdansk.sprint.pl
:                                                 http://www.sprint.pl/~alan