perl gethostbyaddress

[pushVTEC]

So i'm parsing an access log so I have all the ips. I try to do gethostbyaddress($ip, AF_INET) and it doesn't return anything. What am I doing wrong? I've looked at examples it looks like I'm doing it right. All I want is the hostname to return.

 

[Mucman]

$ip must be the integer equivalent of the IP address.

You need to add

$ip = inet_aton("1.1.1.1");

 

[pushVTEC]

so would this work?

$ip = inet_aton($ip);
gethostbyaddress($ip, AF_INET);

 

[Mucman]

Yes, except I also believe it should be gethostbyaddr($ip, AF_INET);

 

[pushVTEC]

I have

$key = inet_aton($key);
$b = gethostbyaddr($key, AF_INET);
print $b;

and it doesn't work, what am i doing wrong?

 

[Mucman]

This works for me:

#!/usr/bin/perl
use Socket;
my $ip = inet_aton("66.51.174.166");
my $name = gethostbyaddr($ip, AF_INET);
print ("name = $name\n");

 

[pushVTEC]

ah do I need that use socket part? And I put that at the top near #!/usr/bin/perl right?

 

[pushVTEC]

what does it return if it can't resolve the hostname?

 

[notfred]

[/b]