Автор Тема: Проверка IP?! (Прочитано 3177 раз)

Dart Sidius · « : 16 Января 2003, 12:05:34 »

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

Chs · « **Ответ #1 :** 16 Января 2003, 12:34:36 »

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

NeoNox · « **Ответ #2 :** 16 Января 2003, 12:36:21 »

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

Dart Sidius · « **Ответ #3 :** 17 Января 2003, 01:15:42 »

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

NeoNox · « **Ответ #4 :** 17 Января 2003, 11:00:48 »

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

Dart Sidius · « **Ответ #5 :** 18 Января 2003, 03:10:00 »

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

NeoNox · « **Ответ #6 :** 18 Января 2003, 14:12:04 »

Цитировать

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

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

Цитировать

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

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

Dart Sidius · « **Ответ #7 :** 18 Января 2003, 16:57:19 »

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

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

NeoNox · « **Ответ #8 :** 18 Января 2003, 17:10:21 »

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

Новости:

Автор Тема: Проверка IP?! (Прочитано 3177 раз)