Date: Fri, 5 Feb 1999 09:21:55 -0500 From: Robert Beer <r-beer@onu.edu> To: "Randy A. Katz" <randyk@ccsales.com>, questions@FreeBSD.ORG Subject: Re: A Perl Question Message-ID: <l0310280eb2e0aecb0390@[140.228.15.35]> In-Reply-To: <3.0.5.32.19990205001838.03baa980@ccsales.com>
next in thread | previous in thread | raw e-mail | index | archive | help
At 3:18 AM -0500 2/5/1999, Randy A. Katz wrote:
>I'm trying to use gethostbyaddr and it is returning blank:
>
>$ipaddress = "216.0.22.30";
>($name, $aliases, $addrtype, $length, @addrs) =
>gethostbyaddr($ipaddress,AF_INET);
>print "Name: $name\n";
>print "Aliases: $aliases\n";
>print "Type: $addrtype\n";
>print "Length: $length\n";
>foreach $p (@addrs) {
> print "A:$p\n";
>}
>exit;
>
>I grepped for AF_INET in /usr/include and there is nothing there, I did a
>man on gethostbyaddr and AF_INET is the only parameter listed for type???
Here is an example I had:
#!/usr/local/bin/perl
for (@ARGV) {
split(/\./);
splice(@_, $#_, 0, (0) x (4-@_)); # inet_addr conversion
@hostent = gethostbyaddr(pack(C4, @_), 2);
printf "[%s] is %s\n", join('.', @_), $hostent[0] || "<UNKNOWN>";
}
It looks like the IP address format is your problem.
---
Bob Beer <r-beer@onu.edu>
Ohio Northern University, Academic Computer Services, Ada, OH 45810
To Unsubscribe: send mail to majordomo@FreeBSD.org
with "unsubscribe freebsd-questions" in the body of the message
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?l0310280eb2e0aecb0390>