0 Пользователей и 1 Гость просматривают эту тему.
sub ip2dec { my $dec = 0; my $ip = $_[0]; my @s = split(/\\./, $ip); for (my $i=3; $i>=0; $i--) {$dec += 256**(3-$i) * $s[$i]} return $dec; } sub dec2ip { my $ip = \'\'; my $dec = $_[0]; my $s; for (my $i=3; $i>=0; $i--) {$s = int($dec / 256**$i); $ip .= $s.\'.\'; $dec -= $s * 256**$i} $ip =~ s/\\.+$//g; return ($ip); }
sub ip_to_hex { return join \' \', map {\'0x\' . sprintf("%02lX", $_)} split /\\./, shift;};print ip_to_hex(\'127.0.0.1\');