¼ÒÄÏ

¼ÒÄÏ, sockaddr_in, sockaddr_un, inet_aton, inet_ntoa´Â C ¼ÒÄÏÀ»·ÎµåÇÏ´Â PERL ¸ðµâÀÔ´Ï´Ù .H Á¤ÀÇ ¹× ±¸Á¶ ¸Å´Ïǽ·¹ÀÌÅÍ
Áö±Ý ´Ù¿î·Îµå

¼ÒÄÏ ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • Socket team
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~nwclark/perl-5.8.8/ext/Socket/Socket.pm

¼ÒÄÏ Å±×


¼ÒÄÏ ¼³¸í

¼ÒÄÏ, sockaddr_in, sockaddr_un, inet_aton, inet_ntoa´Â c ¼ÒÄÏÀ»·ÎµåÇÏ´Â perl ¸ðµâÀÔ´Ï´Ù .h Á¤ÀÇ ¹× ±¸Á¶ Á¶À۱⠼ÒÄÏ, sockaddr_in, sockaddr_un, inet_aton, inet_ntoa´Â C ¼ÒÄÏÀ»·ÎµåÇÏ´Â PERL ¸ðµâÀÔ´Ï´Ù. $ proto = getProtoByName ( 'UDP'); ¼ÒÄÏ (socket_handle, pf_inet, sock_dgram, $ proto); $ iaddr = gethostbyname ( 'hishost.com'); $ port = getServbyName ( '½Ã°£', 'UDP'); $ sin = sockaddr_in ($ Æ÷Æ®, $ iaddr); Àü¼Û (socket_handle, 0, 0, $ sin); $ proto = getProtoByName ( 'TCP'); ¼ÒÄÏ (socket_handle, pf_inet, sock_stream, $ proto); $ port = getServbyName ( 'smtp', 'tcp'); $ sin = sockaddr_in ($ Æ÷Æ®, inet_aton ( "127.1")); $ sin = sockaddr_in (7, inet_aton ( "localhost")); $ sin = sockaddr_in (7, inaddr_loopback); ¿¬°á (socket_handle, $ sin); ($ Æ÷Æ®, $ iaddr) = sockaddr_in (getPeername (socket_handle)); $ peer_host = gethostbyaddr ($ iaddr, af_inet); $ peer_addr = INET_NTOA ($ iADDR); $ proto = getProtoByName ( 'TCP'); ¼ÒÄÏ (socket_handle, pf_unix, sock_stream, $ proto); ¸µÅ© ( '/ var / run / usock'); $ sun = sockaddr_un ( '/ var / run / usock'); ¿¬°á (socket_handle, $ sun);ÀÌ ¸ðµâÀº C ¼ÒÄÏ .H ÆÄÀÏÀÇ ¹ø¿ª ÀÏ»ÓÀÔ´Ï´Ù. ¹ø¿ª µÈ socket.ph ÆÄÀÏÀ» ÇÊ¿ä·ÎÇÏ´Â ÀÌÀü ¸ÞÄ¿´ÏÁò°ú ´Þ¸® H2XS ÇÁ·Î±×·¥ (Perl ¼Ò½º ¹èÆ÷ ÂüÁ¶) ¹× ±âº» C ÄÄÆÄÀÏ·¯¸¦ »ç¿ëÇÕ´Ï´Ù. Áï, ¼ýÀÚ¸¦ ¿Ç°Ô ÇÒ È®·üÀÌ ÈξÀ ´õ ¸¹½À´Ï´Ù. ¿©±â¿¡´Â ÀϹÝÀûÀ¸·Î »ç¿ëµÇ´Â ¸ðµç ÆÄ¿îµå - AF_INET, SOCK_STREAM µî°ú °°Àº ¸ðµç ÆÄ¿îµå Á¤ÀÇ°¡ Æ÷ÇԵ˴ϴÙ. ¿ä±¸ »çÇ× : ¡¤ Perl.


¼ÒÄÏ °ü·Ã ¼ÒÇÁÆ®¿þ¾î