ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Anatoly Moskovsky                    2:5020/400     06 Aug 2003  14:27:02
 To : Vladimir Podgorny
 Subject : Re: IP address
 -------------------------------------------------------------------------------- 
 

 Hi!
 *** 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> }
 А так? :)
 
 my $num_ip = unpack "L", pack "C*", reverse split /\./, $str_ip;
 
 Bye
 
 --- ifmail v.2.15dev5
  * Origin: Alkar Teleport News Server (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