🚀 go-pugleaf

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";

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