µµ±¸ ¼¼Æ® :: Y. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Joerg Meltzer
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~jmeltzer/
µµ±¸ ¼¼Æ® :: Y. ű×
µµ±¸ ¼¼Æ® :: Y. ¼³¸í
³» 1 ¶óÀÌ³Ê µµ±¸ ¼¼Æ® Åø¼Â :: y´Â dzºÎÇÏ°Ô Æ÷Àå µÈ Åø ¼¼Æ® ¸ðµâÀÔ´Ï´Ù. IT´Â Autouse and Class :: Autouse¸¦ »ç¿ëÇÏ°í ÀϹÝÀûÀ¸·Î »ç¿ëµÇ´Â Perlmodules ¹× OO ¸ðµâÀ» ¿ä±¸ÇÒ ¶§·ÎµåÇÕ´Ï´Ù. °úµµÇÑ ¸¶¹ýÀ¸·Î ÀÎÇØ Quickndirty One-liners¸¦ Á¦¿ÜÇÏ°í´Â ´Ù¸¥ °÷¿¡¼´Â »ç¿ëÇÏÁö ¾Ê´Â °ÍÀÌ ÁÁ½À´Ï´Ù. ²Ü¹úÀº »õ·Î¿î »ý»ê¼ºÀÇ »õ·Î¿î ½Ã´ë¸¦ ȯ¿µÇÕ´Ï´Ù .Synopsis #ÀÌ ¸ðµâÀ» ÆÐÅ°Áö·Î ¼³Ä¡ÇϽʽÿÀ. install_short # Ŭ·¡½º :: Autouse '¸¦ »ç¿ëÇÏ¿© : superloader'perl -mtoolset :: y -e '$ i = net :: ip-> new ( "193.0.1 / 24"); $ i-> ip '# package :: alias aliased statistics :: ¼³¸í :: Àüü -> sdf perl -mtoolset :: y -e'$ s- sdf-> $ s-> add_data (0 .. 10 ); $ S-> ºÐ»ê '# Perl 5.10 ±â´É + Scalar :: Util Perl -mToolSet :: y -e'ÁÖ¾îÁø ($ argv ) {when (look_like_number ($ _)) { "¼ýÀÚó·³ º¸ÀÔ´Ï´Ù" }} '2E42 # ÆÐÅ°Áö :: º°Äª º°Äª ÆÄÀÏ :: Readbackwards -> frb perl -mtoolset :: y -e'$ r = frb-> new ($ inc { "y.pm"}); ÀμâÇÏ´Â µ¿¾È (Á¤ÀÇ ($ _ = $ r-> readline)) '# list :: fairwise ºÒÇàÈ÷µµ auptouse °¡´ÉÇÑ perl -mtoolset :: y -e'% % lc_keys = mapp { "\ l $ a"=> $ b} (a => 1, b => 2, c => 3); % lc_keysÀÇ # file :: find :: rule + env ¹Ù·Î °¡±â Perl -mToolSet :: y -e'say for ffr-> name ( "*. pm") -> in ( "$" Ȩ / lib ") '¿ä±¸ »çÇ× : ¡¤ Perl.
µµ±¸ ¼¼Æ® :: Y. °ü·Ã ¼ÒÇÁÆ®¿þ¾î