| Ŭ·¡½º :: Parmlist. Ŭ·¡½º :: Parmlist´Â ¸í¸í µÈ ¸Å°³ º¯¼ö ¸ñ·ÏÀ» ó¸®ÇÏ´Â ¸Þ¼Òµå°¡ÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
Ŭ·¡½º :: Parmlist. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Benjamin Franz
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://www.nihongo.org/snowhare/utilities/ftpweblog/
Ŭ·¡½º :: Parmlist. ű×
Ŭ·¡½º :: Parmlist. ¼³¸í
Ŭ·¡½º :: Parmlist´Â ¸í¸í µÈ ¸Å°³ º¯¼ö ¸ñ·ÏÀ» ó¸®ÇÏ´Â ¸Þ¼Òµå°¡ÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù. Ŭ·¡½º :: parmlist´Â ¸í¸í µÈ ¸Å°³ º¯¼ö Lists.Synopsis¸¦ ó¸®ÇÏ´Â ¸Þ¼Òµå°¡ÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù. Ŭ·¡½º :: Parmlist QW (simple_parms parse_parms); $ thingy-> some_method ({-bgcolor => # ff0000 ', -textColor =>'# 000000 '}); sub subs_method {my ($ self) = shift; MY ($ parm_ref) = @_; MY $ PARMS = Ŭ·¡½º :: PARMLIST-> NEW ({-PARMS => $ PARM_REF, -LEGAL => , - ´Ù½Ã ¸¸µé¾îÁø => , -Defaults => {-bgcolor => "#ffffff", -textcolor => "# 000000"}}); if (pedmed $ parms) {my $ error_message = Ŭ·¡½º :: parmlist-> ¿À·ù; ´ÙÀÌ ($ error_message); } # Stuff ...} sub other_method {my $ self = shift; My ($ name, $ rank, $ serial_number) = simple_parms (, @_); # ...} sub still_another {my $ parms = parse_parms ({-parms => @_, -legal => , --required => , -defaults => {-bgcolor => "#ffffff", -textcolor => "# 000000"}}); if (pedmed $ parms) {my $ error_message = Ŭ·¡½º :: parmlist-> ¿À·ù; ´ÙÀÌ ($ error_message); } # ...} ÀÌ´Â ¼ºê ·çƾ ¶Ç´Â ¸Þ¼Òµå¿¡ ´ëÇÑ È£Ã⠸Ű³ º¯¼ö¸¦ °ËÁõÇϱâÀ§ÇÑ °£´ÜÇÑ ÆÐÅ°ÁöÀÔ´Ï´Ù. ÀÔ·ÂÇϴ´ë·Î ÀÔ·ÂÀÌ ¿¹»ó´ë·Î ¼öÇàµÇ´ÂÁö È®ÀÎÇÏ°í ÃÖ¼ÒÇÑÀÇ ¿ä±¸ »çÇ×À» ÃæÁ·ÇÏ´ÂÁö È®ÀÎÇϱâÀ§ÇÑ ¸Å°³ º¯¼öÀÇ ¼ö ¹× À̸§ ÁöÁ¤À» È®ÀÎÇÏ´Â µ¿¾È "¸í¸í µÈ ¸Å°³ º¯¼ö"¸¦ »ç¿ëÇÒ ¼ö ÀÖ½À´Ï´Ù. ¶ÇÇÑ »ý·« µÈ °æ¿ì ¸í¸í µÈ ¸Å°³ º¯¼öÀÇ ±âº»°ª ¼³Á¤À» Çã¿ëÇÕ´Ï´Ù. ¿ä±¸ »çÇ× : ¡¤ Perl.
Ŭ·¡½º :: Parmlist. °ü·Ã ¼ÒÇÁÆ®¿þ¾î