| net :: connection :: sniffer :: util. NET :: Connection :: Sniffer :: UtilÀº NetAddr À¯Æ¿¸®Æ¼ÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
net :: connection :: sniffer :: util. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Michael Robinton
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~miker/Net-DNS-Codes-0.09/Codes.pm
net :: connection :: sniffer :: util. ű×
net :: connection :: sniffer :: util. ¼³¸í
Net :: Connection :: Sniffer :: UtilÀº NetAddr À¯Æ¿¸®Æ¼ÀÔ´Ï´Ù. net :: connection :: sniffer :: utiles netaddr À¯Æ¿¸®Æ¼´Â netnopsisÀÔ´Ï´Ù net :: connection :: sniffer :: util; MY $ IP = NEWCIDR24 NET :: Connection :: Sniffer :: util ($ netaddr); ³» $ IPCOPY = $ IP-> º¹»ç; if ($ some-in in ($ IP)) {($ IP-> $ some-sperip)) {($ IP1-> µ¿µîÇÑ ($ IP2)) { ¹º°¡ ____TOP NET :: Connection :: Sniffer :: UtilÀº 32 ¶Ç´Â 128 ºñÆ® Çü½ÄÀ¸·Î IP ÁÖ¼Ò¿¡¼ IP ÁÖ¼Ò¿¡¼ IP¿Í °°Àº ÀÛ¾÷À» ÇÒ ¼öÀÖ´Â Lite Weight Perl ¸ðµâÀÔ´Ï´Ù .My $ IP = NEWCIDR24; IPv6ÀÇ °æ¿ì CIDR / 24 ³×Æ®¿öÅ© / ºê·Îµå ij½ºÆ® °æ°è (32 ºñÆ® ÁÖ¼Ò ÁöÁ¤ °¡Á¤)¸¦ »ç¿ëÇÏ¿© Ãູ¹ÞÀº ÁÖ¼Ò °´Ã¼¸¦ ¸¸µì´Ï´Ù. ÀÌ´Â CIDR / 120 MY $ IPCOPY = $ IP-> º¹»çº»À̵˴ϴÙ. Ãູ¹ÞÀº ³×Æ®¿öÅ© ÁÖ¼Ò °³Ã¼¸¦ »õ·Î¿î Ãູ¹ÞÀº ¹°Ã¼¿¡ º¹»çÇϽʽÿÀ. $ IP°¡ net :: connection :: sniffer :: util object. $ rv = $ some-> ($ IP); $ SCIDIP°¡ $ IPÀÇ CIDR ³»¿¡ ÀÖ´ÂÁö È®ÀÎÇϽʽÿÀ. I.E.E. ³×Æ®¿öÅ© ÁÖ¼Ò µ¿µîÇÑ ($ IP2); IP1 IP2 ÀÔ·ÂÀÌ ÀÖ´ÂÁö È®ÀÎÇϽʽÿÀ : IP2 ¿ÀºêÁ§Æ® ¸®ÅÏ : true / false ¿ä±¸ »çÇ× : ¡¤ Perl.
net :: connection :: sniffer :: util. °ü·Ã ¼ÒÇÁÆ®¿þ¾î