Проверка IP?!

[Dart Sidius]

Люди помогите...Можно ли в перле проверить правильность IP...ну нечто вроде ping\'ом или tracert\'ом чтобы знать наверняка пытается ли юзер задать неправельный IP...т.е. обмануть скрипт

[Chs]

http://search.cpan.org/author/MOHACSI/Net-Traceroute6-0.03/
http://search.cpan.org/author/BBB/Net-Ping-2.26/

[NeoNox]

perldoc Net::Ping - check a remote host for reachability
Есть Net::Traceroute но он врядли тебе поможет.

[Dart Sidius]

мля...чё-то не работает?...

[NeoNox]

Все работает. И один и другой модуль.

[Dart Sidius]

Что-то у меня не работает....а можно пример?...А то мож я криво делаю

[NeoNox]

Что-то у меня не работает

Показывай как ты делаешь.

а можно пример?

Примеры в документации и в гугле лежат

[Dart Sidius]

use Socket;
$host = $ENV{\'REMOTE_ADDR\'};
$iaddr = inet_aton("$host");
$name  = gethostbyaddr($iaddr, AF_INET);
print $name;


---------
На моём компе локально работает а на серваке нет....

[NeoNox]

1. Проверяй что возвращает тебе каждая переменная.
2. Задай этот вопрос администратору сервера.