Модераторы: korob2001, ginnie
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Net::Whois, Не фурычит 
:(
    Опции темы
Perl_sapiens
Дата 24.5.2008, 16:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 95
Регистрация: 19.2.2008

Репутация: нет
Всего: нет
не пашет и все тут:

Код
#!perl
use Net::Whois;

$dom = "ya.ru";
$w = new Net::Whois::Domain $dom or die "Err#1\n";
unless ($w->ok){die "Err#2\n";}


на выходе пишет Err#2. Че не так? Руководствовался этим:
http://search.cpan.org/~dhudes/Net-Whois-1.9/Whois.pm
PM MAIL   Вверх
ginnie
Дата 24.5.2008, 21:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Комодератор
Сообщений: 1287
Регистрация: 6.1.2008
Где: Москва

Репутация: 38
Всего: 49
Perl_sapiens, может дело в этом (фрагмент документации):

Код

The server consulted is "whois.internic.net". You can only get .org, .edu, .net, .com domains from Internic.
Other whois servers for other Top-Level-Domains (TLD) return information in a different syntax
 and are not supported at this time.



Это сообщение отредактировал(а) ginnie - 24.5.2008, 21:16


--------------------
Написать код, понятный компьютеру, может каждый, но только хорошие программисты пишут код, понятный людям. (Мартин Фаулер. Рефакторинг)
PM MAIL Skype Jabber   Вверх
Perl_sapiens
  Дата 24.5.2008, 22:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 95
Регистрация: 19.2.2008

Репутация: нет
Всего: нет
Хм...

Код
#!perl
use Net::Whois;
use Carp;

$dom = "google.com";
$w = new Net::Whois::Domain $dom or die "Err#1\n";
unless ($w->ok){die "Err#2\n";}


тоже самое: Err#2
PM MAIL   Вверх
xXvladXx
Дата 24.5.2008, 23:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бездарь
*


Профиль
Группа: Участник
Сообщений: 88
Регистрация: 9.3.2008

Репутация: нет
Всего: 1
все не стандартные компоненты Net у меня до конца не работалиsmile
вот сделал руками...
Код

use IO::Socket;

my $socket;
while ( ! ($socket = IO::Socket::INET->new("whois.ripn.net:43") ) ) {
  print ("Not connected: $!\nSleep 1 sec\n");
  sleep 1;
}
unless ($socket) {print "error";}
$socket->autoflush(1);
$header='ya.ru';

print $socket  "$header\r\n";

my @rz = <$socket>;

close $socket;
print @rz;


Это сообщение отредактировал(а) xXvladXx - 24.5.2008, 23:34
PM MAIL   Вверх
nitr
Дата 25.5.2008, 00:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 37
Всего: 84
Perl_sapiens, сервер http://whois.internic.net/ недоступен, посмотрите иные модули whois на CPAN. Или воспользуйтесь примером выше.

xXvladXx, это всё хорошо, но тот кто часто использует ресурсы WHOIS, а конкретнее именно ripn.net, тот знает, частенько недоступен их сервер smile Сюда ещё проверку надо. А онлайн-сервисов очень много, тот же who.is


--------------------
user posted image
user posted image
I love ArchLinux
PM   Вверх
xXvladXx
Дата 25.5.2008, 13:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бездарь
*


Профиль
Группа: Участник
Сообщений: 88
Регистрация: 9.3.2008

Репутация: нет
Всего: 1
я первый попавщийся взял он заработал, знач все ок))
PM MAIL   Вверх
nitr
Дата 25.5.2008, 16:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 37
Всего: 84
http://search.cpan.org/~despair/Net-Whois-...et/Whois/Raw.pm
http://search.cpan.org/author/VIPUL/Net-XW...b/Net/XWhois.pm
http://search.cpan.org/author/PAULG/Net-Wh.../Whois/RIPE.pod

Все рабочие + можно указывать сервер.


--------------------
user posted image
user posted image
I love ArchLinux
PM   Вверх
xXvladXx
Дата 25.5.2008, 16:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бездарь
*


Профиль
Группа: Участник
Сообщений: 88
Регистрация: 9.3.2008

Репутация: нет
Всего: 1
а мой чем плох? smile 
PM MAIL   Вверх
shamber
Дата 26.5.2008, 12:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1422
Регистрация: 5.9.2006
Где: Россия

Репутация: 17
Всего: 18
xXvladXx, а где модульный подход smile
PM MAIL Jabber   Вверх
nitr
Дата 26.5.2008, 14:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 37
Всего: 84
xXvladXx, я говорил, что ваш плох? Я только маленько прокомментировал, и привёл несколько рабочих модулей.


--------------------
user posted image
user posted image
I love ArchLinux
PM   Вверх
xXvladXx
Дата 26.5.2008, 15:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бездарь
*


Профиль
Группа: Участник
Сообщений: 88
Регистрация: 9.3.2008

Репутация: нет
Всего: 1
угу....луше взять чужое чем написать самому)))
PM MAIL   Вверх
nitr
Дата 26.5.2008, 16:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 37
Всего: 84
 smile 
xXvladXx, вы неправильно всё это трактуете, может стоит не брать "чужие/не свои" ОС , а написать свою? ;)
CPAN - это уже часть Perl'а, нельзя от неё отказываться. Не все модули идеальны, но имхо, их 10% ;)
Кстати, ими тоже надо уметь пользоваться ;)


--------------------
user posted image
user posted image
I love ArchLinux
PM   Вверх
KSURi
Дата 26.5.2008, 20:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 887
Регистрация: 8.6.2006
Где: Russia

Репутация: 20
Всего: 27
Цитата(xXvladXx @  26.5.2008,  15:54 Найти цитируемый пост)
угу....луше взять чужое чем написать самому))) 

Нет конечно, лучше изобрести еще один велосипед (часто гораздо хуже, вместо того, который был до вас)...

Дурацкий, на мой взгляд, "хекерный" подход. Репозиторий модулей, у которого нет достойных конкурентов - одно из ключевых достоинств Perl, а вы это достоинство выкидываете.


--------------------
Died at Life.pl line 21
PM Jabber   Вверх
tolkien
Дата 27.5.2008, 00:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 277
Регистрация: 5.4.2008

Репутация: 4
Всего: 4
Почему же  в том же CPAN можно найти кучу разных модулей которые решают одни и те же задачи. 
PM MAIL   Вверх
shamber
Дата 27.5.2008, 10:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1422
Регистрация: 5.9.2006
Где: Россия

Репутация: 17
Всего: 18
tolkien, а для того чтобы был Выбор
Хорошо это или плохо решать каждому
PM MAIL Jabber   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl"
korob2001
sharq
  • В этом разделе обсуждаются общие вопросы по языку Perl
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Если ваш вопрос относится к CGI программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", можно скачать здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.2479 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.