| Params :: Coerce. PARAMS :: COERCE´Â Ŭ·¡½º°¡ ¸Å°³ º¯¼ö °Á¦¸¦ ¼öÇà ÇÒ ¼öÀÖ°Ô ÇØÁÖ´Â PERL ¸ðµâÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
Params :: Coerce. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Adam Kennedy
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~adamk/
Params :: Coerce. ű×
Params :: Coerce. ¼³¸í
Params :: Coerce´Â Ŭ·¡½º°¡ ¸Å°³ º¯¼ö °Á¦¸¦ ¼öÇà ÇÒ ¼öÀÖ°Ô ÇØÁÖ´Â Perl ¸ðµâÀÔ´Ï´Ù. params :: coerce´Â Ŭ·¡½º°¡ ¸Å°³ º¯¼öÀÇ °Á¦¸¦ ¼öÇà ÇÒ ¼öÀÖ°Ô ÇØÁÖ´Â Perl ¸ðµâÀÔ´Ï´Ù. ½Äº°ÀÚÀÇ °´Ã¼¸¦ ¸·´ë¿¡ Coerce ³» $ bar = params :: Coerce :: Coerce ( 'bar', $ foo) # ¸¸µé±â °¾Ð ÆĶó¹ÌÅÍ ÇÔ¼ö´Â params :: coerce '_bar'=> 'bar'¸¦ »ç¿ëÇÕ´Ï´Ù. ³» $ bar = _bar ($ foo); # »ç¿ë¹ý¿¡ 'from'¸Þ¼µå°¡ÀÖ´Â °æ¿ì ³» $ bar = bar-> ($ foo); HTML :: À§Ä¡¸¦ »ç¿ëÇÏ´Â ½ÇÁ¦ ¿¹Á¦. # ³» Ŭ·¡½º URI ÆÐÅ°Áö À¥ :: °Å¹Ì; URI¸¦ »ç¿ëÇϽʽÿÀ; params :: coerce 'coerce'¸¦ »ç¿ëÇϽʽÿÀ. »õ {³» $ class = shift; # ³» $ start = coerce ( 'uri', shift) ¶Ç´Â die "¸¦ °Å¹ö¸®Å͸µÇÏ´Â °÷Àº ¾îµð¿¡¼ uri¸¦ Åë°úÇÏÁö ¾Ê¾Ò½À´Ï´Ù"; Ãູ {root => $ start}, $ class; } ############################## Áö±Ý ¿ì¸®´Â ÇÒ ¼ö ÀÖ½À´Ï´Ù ´ÙÀ½ #Àº Á¤»óÀûÀÎ ³» $ uri = uri-> new ( 'http://ali.as/')·Î URI¸¦ Àü´ÞÇÕ´Ï´Ù. ³» $ spider1 = À¥ :: ½ºÆÄÀÌ´õ -> »õ·Î¿î ($ uri); # ¿ì¸®´Â ¶ÇÇÑ URI ³» $ À¥ »çÀÌÆ® = HTML :: Location-> New ( '/ home / adam / public_html', 'http://ali.as')·Î °¿ä µÉ ¼öÀÖ´Â ¸ðµç °ÍÀ» Åë°ú ÇÒ ¼ö ÀÖ½À´Ï´Ù. My $ Spider2 = Web :: Spider-> New ($ À¥ »çÀÌÆ®); ÁÁÀº API µðÀÚÀÎÀÇ Å« ºÎºÐÀº ¿ì¸®°¡ ¸Å°³ º¯¼ö¸¦ ÃëÇÏ´Â ¹æ¹ýÀ¸·Î À¯¿¬ ÇÒ ¼ö ÀÖ¾î¾ßÇÑ´Ù´Â °ÍÀÔ´Ï´Ù. ÀÌ·¸°ÔÇÏ¸é ´Ù¾çÇÑ ¿©·¯ Àμö¸¦ ½±°Ô ¼öÇà ÇÒ ¼ö ÀÖÀ¸¹Ç·Î Äڵ忡 ´ëÇÑ Ãß°¡ º¹À⼺ÀÌ Ãß°¡µË´Ï´Ù.
Params :: Coerce. °ü·Ã ¼ÒÇÁÆ®¿þ¾î