| ¸ðµâ ::·Îµå :: Á¶°ÇºÎ ·±Å¸ÀÓ¿¡ ¸ðµâ Á¤º¸ / ·ÎµùÀ» ã°í |
Áö±Ý ´Ù¿î·Îµå |
¸ðµâ ::·Îµå :: Á¶°ÇºÎ ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~kane/
¸ðµâ ::·Îµå :: Á¶°ÇºÎ ű×
¸ðµâ ::·Îµå :: Á¶°ÇºÎ ¼³¸í
¸ðµâ Á¤º¸¸¦ ã°í ·±Å¸ÀÓ¿¡·Îµå ÁßÀÔ´Ï´Ù ¸ðµâ :: Load :: ConditionalÀº ·±Å¸ÀÓ¿¡ ¸ðµâ Á¤º¸ /·Îµå¸¦ Á¶È¸ÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. Synopsis »ç¿ë ¸ðµâ :: Load :: Conditional QW ; ³» $ use_list = {cpanplus => 0.05, lwp => 5.60, 'test :: more'=> undef,}; PRINT CAN_LOAD (modules => $ use_list)? '¼º°øÀûÀ¸·Î·Îµå µÈ ¸ðµç ¸ðµâ': 'Çʼö ¸ðµâÀ»·ÎµåÇÏÁö ¸øÇß½À´Ï´Ù.'; MY $ RV = CHECK_INSTALL (module => 'lwp', version => 5.60) ¶Ç´Â 'LWP°¡ ¼³Ä¡µÇÁö ¾Ê¾Ò½À´Ï´Ù!'; $ rv -> {uptodate} ÀÎ °æ¿ì 'LWP Ãִ븦 ÃֽŠ»óÅ·ΠÀμâÇϽʽÿÀ. Àμâ "LWP ¹öÀüÀº $ RV -> {¹öÀü}ÀÔ´Ï´Ù. "Àμâ"LWP´Â $ rv -> {file} ÆÄÀÏ·Î ¼³Ä¡µË´Ï´Ù. "Àμâ"LWP´Â ´ÙÀ½ ¸ðµâÀ» ¼³Ä¡ÇؾßÇÕ´Ï´Ù. "Àμ⠰¡ÀÔ" ", ÇÊ¿ä¿¡ µû¶ó ( 'LWP'); ### M :: L :: c´Â @ inc $ module :: load :: conditional :: seck_inc_hash = 1; ## 'can_load'ij½Ã Undef Undef Undef $ ¸ðµâ :: Load :: Conditional :: Cache; ### ¸ðµâ :: Load :: Conditual ¹®Á¦ ¹®Á¦ °æ°í - ### ±âº»°ªÀº '1'$ ¸ðµâÀÔ´Ï´Ù. : load :: conditional :: verbose = 0; ### 'can_load'³» $ err = $ module :: load :: conditional :: error; module :: load :: conditionalÀº Á¦°øµË´Ï´Ù. ·±Å¸ÀÓ Áß¿¡ ½Ã½ºÅÛ¿¡ ¼³Ä¡ ÇÑ ¸ðµâÀ» Äõ¸®ÇÏ°í Äõ¸® ÇÒ ¼öÀÖ´Â °£´ÜÇÑ ¹æ¹ý .It Áß Çϳª°¡·Îµå ÇÒ ¼ö¾ø´Â °æ¿ì ÇÑ ¹ø¿¡ ¿©·¯ ¸ðµâÀ» ÇÑ ¹ø¿¡·Îµå ÇÒ ¼ö ÀÖ½À´Ï´Ù. ¶ÇÇÑ ¿À·ù°¡ ¹ß»ýÇÕ´Ï´Ù. È®ÀÎ µîµî. ¿ä±¸ »çÇ× : ¡¤ Perl.
¸ðµâ ::·Îµå :: Á¶°ÇºÎ °ü·Ã ¼ÒÇÁÆ®¿þ¾î