ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Yuri Shlyapkin                       2:5020/400     07 Aug 2003  08:06:27
 To : Anatoly Moskovsky
 Subject : Re: IP address
 -------------------------------------------------------------------------------- 
 

 Hello, Anatoly!
 You wrote to Vladimir Podgorny on Wed, 6 Aug 2003 10:27:02 +0000 (UTC):
 
  AM> Hi!
  AM> *** Vladimir Podgorny wrote:
  >>> Вопрос: есть ли стандартная функция?
 
  VP>> Знамо дело есть...
 
  VP>> sub ipv4_to_dec($) {
  VP>>   my @ipv4 = reverse split /\./, shift || return undef;
  VP>>   my $dec = 0;
  VP>>   $dec += $ipv4[$_] * 256 ** $_ foreach (0 .. 3);
  VP>>   $dec;
  VP>> }
  AM> А так? :)
 
  AM> my $num_ip = unpack "L", pack "C*", reverse split /\./, $str_ip;
 
  AM> Bye
 
 О, пасибочки.
 
 With best regards, Yuri Shlyapkin .  E-mail: shl@mail.ru
 --- ifmail v.2.15dev5
  * Origin: Demos online service (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    IP address   Yuri Shlyapkin   06 Aug 2003 07:45:58   Re: IP address   Vladimir Podgorny   06 Aug 2003 11:16:39   Re: IP address   Anatoly Moskovsky   06 Aug 2003 14:27:02   Re: IP address   Yuri Shlyapkin   07 Aug 2003 08:06:27   IP address   Antony Gerasimov   07 Aug 2003 10:32:16