µµ±¸ ¼¼Æ® :: Y.

My Liner Toolset
Áö±Ý ´Ù¿î·Îµå

µµ±¸ ¼¼Æ® :: Y. ¼øÀ§ ¹× ¿ä¾à

±¤°í

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