LINUX.ORG.RU
Форум — General  

perl gethostbyaddr


0

0 

В чем проблема?
#!/usr/bin/perl -w
use Socket;
my $ip_addr="xx.xx.xx.xx";
my $name=gethostbyaddr($ip_addr, AF_INET);
print "$name \n";

Пишет:
Use of uninitialized value in concatenation (.) or string at ./perl.pl line 5.
★★

Ответ на: комментарий от kranky 

Спасибо определяет. Но если адрес не резолвится, то пишет: 
Use of uninitialized value in concatenation (.) or string at ./perl.pl line 5.
А надо чтоб возвращал адрес в таком случае.

lioncub ★★
() автор топика
Ответ на: комментарий от lioncub 

попробуй что-нить вроде

#!/usr/bin/perl -w
use Socket;
$a="xx.xx.xx.xx";
$ip_addr = inet_aton($a); 
my $name=gethostbyaddr($ip_addr, AF_INET);
if (defined($name)){print "$name \n";}
else {print "$a\n";}

kranky ★★★★★
()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.
General