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

Perl gethost()


0

1

#!/usr/bin/perl

use Net::hostent; use Socket;

print «Hello, World!\n»;

$string = <>; $host = gethost($string); print inet_ntoa ($host->addr);

не понимаю почему не работает, подскажите как исправить, пожалуйста!

> не понимаю почему не работает
Что не работает-то?

[00:03:10][aitap@Tarkus ~]> perl -d

Loading DB routines from perl5db.pl version 1.32
Editor support available.   

Enter h or `h h' for help, or `man perldebug' for more help.

use Net::hostent; use Socket;

  DB<1> $string = "ya.ru";

  DB<2> $host = gethost($string);

  DB<3> x $host
0  Net::hostent=ARRAY(0x8cbc7f0)
   0  'ya.ru'
   1  ARRAY(0x8cbc7a0)
        empty array
   2  2
   3  4
   4  ARRAY(0x8cbc770)
      0  "W��\cC"
      1  "]��\cC"
      2  ']���'
      3  "մ�\cC"
      4  "MX\cU\cC"
      5  "W��\cC"
      6  'W���'
  DB<4> x inet_ntoa ($host->addr);
0  '87.250.251.3'
  DB<5>
AITap ★★★★★
()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.
Development