Params :: Coerce.

PARAMS :: COERCE´Â Ŭ·¡½º°¡ ¸Å°³ º¯¼ö °­Á¦¸¦ ¼öÇà ÇÒ ¼öÀÖ°Ô ÇØÁÖ´Â PERL ¸ðµâÀÔ´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

Params :: Coerce. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • 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. °ü·Ã ¼ÒÇÁÆ®¿þ¾î

getopt :: argvfile.

getOpt :: argvfileÀº ÆÄÀÏ¿¡¼­ @argv ¶Ç´Â ´Ù¸¥ ¹è¿­·Î ½ºÅ©¸³Æ® ¿É¼ÇÀ» º¸°£ÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. ...

162

´Ù¿î·Îµå