Forum Webscript.Ru

Программирование => Perl => Тема начата: Dart Sidius от 16 Января 2003, 12:05:34

Название: Проверка IP?!
Отправлено: Dart Sidius от 16 Января 2003, 12:05:34

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

Название: Проверка IP?!
Отправлено: Chs от 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/

Название: Проверка IP?!
Отправлено: NeoNox от 16 Января 2003, 12:36:21

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

Название: Проверка IP?!
Отправлено: Dart Sidius от 17 Января 2003, 01:15:42

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

Название: Проверка IP?!
Отправлено: NeoNox от 17 Января 2003, 11:00:48

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

Название: Проверка IP?!
Отправлено: Dart Sidius от 18 Января 2003, 03:10:00

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

Название: Проверка IP?!
Отправлено: NeoNox от 18 Января 2003, 14:12:04

Цитировать

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

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

Цитировать

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

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

Название: Проверка IP?!
Отправлено: Dart Sidius от 18 Января 2003, 16:57:19

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


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

Название: Проверка IP?!
Отправлено: NeoNox от 18 Января 2003, 17:10:21

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