| IO :: Stream. EV¸¦ ±â¹ÝÀ¸·Î ºñ Â÷´Ü I / O ½ºÆ®¸²À» ¿ÏÈÇÕ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
IO :: Stream. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~powerman/
IO :: Stream. ű×
IO :: Stream. ¼³¸í
ºñ Â÷´Ü À̺¥Æ® ±â¹Ý ·Î¿ì ·¹º§ I / O´Â ±Ç¸®¸¦ ¾ò±â°¡ ¾î·Æ½À´Ï´Ù. ÄÚµå´Â ÀϹÝÀûÀ¸·Î ¿À·ù°¡ ¹ß»ýÇϱ⠽±°í º¹ÀâÇÑ ... ±×¸®°í ¸ðµç ÀÀ¿ë ÇÁ·Î±×·¥¿¡¼ ¸Å¿ì À¯»çÇÕ´Ï´Ù. ¾î¶² ¹æ½Ä À¸·Îµç I / O ½ºÆ®¸²À» º¯°æÇØ¾ß ÇÒ ¶§ ÈξÀ ´õ ³ªºüÁú ¼ö ÀÖ½À´Ï´Ù - ÇÁ·Ï½Ã, ¾ÏÈ£È, SSL, µîµî :: ½ºÆ®¸²Àº ´õ ³ôÀº ¼öÁØÀÇ I / O ½ºÆ®¸²À» »ç¿ëÇÏ¿© ÀÛ¾÷ ÇÒ ¼öÀÖ´Â »ç¿ëÀÚ ´É·ÂÀ» Á¦°øÇϵµ·Ï ¼³°èµÈ Perl ¸ðµâÀÔ´Ï´Ù. ¿¬°á, Àü¼Û ¶Ç´Â EOF¿Í °°Àº ÀÔ·Â / Ãâ·Â ¹öÆÛ (´ÜÁö ½ºÄ®¶ó) ¹× °í±Þ À̺¥Æ®¸¦ »ç¿ëÇÕ´Ï´Ù. µ¿½Ã¿¡ ±×°ÍÀº ³·Àº ¼öÁØÀÇ °ÍµéÀ» ¼û±âÁö ¾ÊÀ¸¸ç, »ç¿ëÀÚ´Â ¿©ÀüÈ÷ Á¦ÇѾøÀÌ ³·Àº ¼öÁØ¿¡¼ ÀÛµ¿ ÇÒ ¼ö ÀÖ½À´Ï´Ù. ½Ä ³ëÇÁ°¡ EV¸¦ »ç¿ëÇϽʽÿÀ. io :: StreamÀ» »ç¿ëÇϽʽÿÀ. io :: Stream-> new ({host => 'google.com', port => 80, cb => \ client, wait_for => ¼Û½Å | eof, in_buf_limit => 102400, out_buf => "get / http / 1.0 \ nhost : google.com \ n \ n ",}); $ ev :: died = sub {warn $ @; EV :: Unloop}; EV :: LOOP; ÇÏÀ§ Ŭ¶óÀ̾ðÆ® {My ($ IO, $ E, $ ERR) = @_; if ($ ERR) {$ IO-> close (); Die $ Err; } ($ e ¹× ¼Û½Å µÈ) {print "¿äûÀÌ Àü¼ÛµÇ¸é ´äÀåÀ» ±â´Ù¸®°í ... \ n"; } ($ e ¹× eof) {print "¼¹ö ÀÀ´ä : \ n", $ io -> {in_buf}; $ io-> close (); EV :: Unloof; # ¸ðµÎ ¿Ï·á}} Á¦Ç° ȨÆäÀÌÁö
IO :: Stream. °ü·Ã ¼ÒÇÁÆ®¿þ¾î