| NETADDR :: IP :: UTRING. NETADDR :: IP :: UTILÀº IPv4 / 6 ¹× 128 ºñÆ® ¹øÈ£ À¯Æ¿¸®Æ¼°¡ Æ÷ÇÔ µÈ Perl ¸ðµâÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
NETADDR :: IP :: UTRING. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Michael Robinton
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~miker/Net-DNS-Codes-0.09/Codes.pm
NETADDR :: IP :: UTRING. ű×
NETADDR :: IP :: UTRING. ¼³¸í
NetAddr :: IP :: UtilÀº IPv4 / 6 ¹× 128 ºñÆ® ¹øÈ£ À¯Æ¿¸®Æ¼°¡ Æ÷ÇÔ µÈ Perl ¸ðµâÀÔ´Ï´Ù. NetAddr :: IP :: utilÀº IPv4 / 6 ¹× 128 ºñÆ® ¹øÈ£ À¯Æ¿¸®Æ¼°¡ Æ÷ÇÔ µÈ Perl ¸ðµâÀÔ´Ï´Ù. ½Ä ³ëÇÁ°¡ »ç¿ë NetAddr :: IP :: Util QW (Inet_aton INT_NTOA IPV6_N2D INT_ANTAI IPV6_N2D INT_ANT_ATITSBITS ISIPV4 INT_N2DX INET_N2AD IPV4TO6 MASKANT_N2AD IPV4TO6 MASK4TO6 IPVTO6 MASKANYTO6 IPV6TO4 ShiftLeft AddConst) ADD128 SUB128 NOTCONTIOCUSSUOF BIN2BCD BCD2BIN ¸ðµå); netaddr :: ip :: util qw (: all : inet : ipv4 : ipv6 : math) : inet => inet_aton, inet_ntoa, ipv6_aton, ipv6_n2x, ipv6_n2d, inet_any2n, inet_n2dx, inet_n2ad, ipv4to6, mask4to6, ipanyto6, maskyto6, ipv6to4 : IPv4 => inet_aton, inet_ntoa : IPv6 => IPv6_aton, IPv6_n2x, ipv6_n2d, inet_any2n, inet_n2dx, inet_n2ad ipv4to6, maskyto6, ipv6to6, maskyto6, ipv6to4 : math => add128, sub128, notconticouous, bin2bcd, bcd2bin , shiftleft $ dotquad = inet_ntoa ($ netaddr); $ netaddr = inet_aton ($ dotquad); $ IPV6NADDR = IPV6_ATON ($ IPV6_TEXT); $ hex_text = ipv6_n2x ($ IPV6NADDR); $ DEC_TEXT = IPV6_N2D ($ IPV6NADDR); $ IPV6NADDR = INET_ANY2N ($ DOTQUAD ¶Ç´Â $ IPV6_TEXT); $ rv = hasbits ($ bits128); $ rv = isipv4 ($ bits128); $ dotquad ¶Ç´Â $ hex_text = inet_n2dx ($ IPV6NADDR); $ dotquad ¶Ç´Â $ dec_text = inet_n2ad ($ IPV6NADDR); $ IPV6NADDR = IPv4to6 ($ NETADDR); $ IPV6NADDR = MASK4TO6 ($ NETADDR); $ IPV6NADDR = iPANYTO6 ($ NETADDR); $ IPV6NADDR = MASKANYTO6 ($ NETADDR); $ NETADDR = IPv6to4 ($ PV6NADDR); $ bitsx2 = ShiftLeft ($ bits128, $ n); $ carry = AddConst ($ IPV6NADDR, $ SIGNED_32CON); ($ carry, $ ipv6naddr) = AddConst ($ IPV6NADDR, $ SIGNED_32CON); $ carry = add128 ($ IPV6NADDR1, $ IPV6NADDR2); ($ CIRIT, $ IPV6NADDR) = ADD128 ($ IPV6NADDR1, $ IPV6NADDR2); $ carry = sub128 ($ IPV6NADDR1, $ IPV6NADDR2); ($ carry, $ ipv6naddr) = SUB128 ($ IPV6NADDR1, $ IPV6NADDR2); ($ spurious, $ cidr) = notContuous ($ mask128); $ bcdtext = bin2bcd ($ bits128); $ bits128 = bcd2bin ($ bcdtxt); $ modetext = ¸ðµå; ¿ä±¸ »çÇ× : ¡¤ Perl.
NETADDR :: IP :: UTRING. °ü·Ã ¼ÒÇÁÆ®¿þ¾î