| Perl6 :: ³»Àå Perl6 :: Butolins´Â »õ·Î¿î Perl 6 ³»ÀåÀÇ ERL 5 ¹öÀüÀ» Á¦°øÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
Perl6 :: ³»Àå ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Damian Conway
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~dconway/
Perl6 :: ³»Àå ű×
Perl6 :: ³»Àå ¼³¸í
Perl6 :: Buitleins´Â ERL 5 ¹öÀüÀÇ »õ·Î¿î Perl 6 ³»ÀåÀ» Á¦°øÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. Perl6 :: Butolins´Â »õ·Î¿î Perl 6 BuiltinsÀÇ ERL 5 ¹öÀüÀ» Á¦°øÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. Synopsis »ç¿ë Perl6 :: Buithins QW (½Ã½ºÅÛ); System $ system_cmd ¶Ç´Â die "$ system_cmd : $!"ÇÒ ¼ö ¾ø½À´Ï´Ù. MY $ PACKAGE = ¹ß½ÅÀÚ -> {ÆÐÅ°Áö}; ³» $ file = È£ÃâÀÚ -> {file}; ³» $ LINE = ¹ß½ÅÀÚ -> {¶óÀÎ}; PERL 6ÀÇ ³»Àå µÈ ¸î¸îÀº PERL 5 ´ëÀÀ ºÎ¹®º¸´Ù ´Ù¸¥ (Áï,º¸´Ù À¯¿ëÇÏ°í È¥¶õ½º·¯¿î) ÇൿÀ» °®´Â´Ù. ÀÌ ¸ðµâÀº Perl 5 ¹öÀüÀÇ ButolIns.InterFacesSystemif ½Ã½ºÅÛÀÌ »ç¿ë ¶óÀο¡·ÎµåµÇ¸é ½Ã½ºÅÛ ¸í·ÉÀÌ ÀϾÁö ¾ÊÀ¸¸é ³»ÀåÀÌ º¯°æµÇ¾î True¸¦ ¹ÝȯÇÕ´Ï´Ù. ´Ù¸¥ ÄÁÅؽºÆ® ¿¡¼ÀÌ ¸í·ÉÀº $!! CALLERIF ¹ß½ÅÀÚ°¡ »ç¿ë ¶óÀο¡·ÎµåµÇ¸é BUTHINÀÌ º¯°æµÇ¾î ½ºÄ®¶ó ¹× ¸ñ·Ï ÄÁÅؽºÆ®¿¡¼ PERL 5¿Í °°ÀÌ ÀÛµ¿ÇÕ´Ï´Ù. ±×·¯³ª ¹ß½ÅÀÚ¿¡°Ô È£Ãâ °á°ú°¡ Çؽà ÂüÁ¶·Î »ç¿ëµÇ´Â °æ¿ì ´ÙÀ½ Å°°¡ÀÖ´Â Çؽÿ¡ ´ëÇÑ ÂüÁ¶¸¦ ¹ÝȯÇÕ´Ï´Ù. 'ÆÐÅ°Áö' 'ÆÄÀÏ'¼± '' 'args' '' '' '' ' ÀÌ·¯ÇÑ Å°ÀÇ °ªÀº È£ÃâÀÚ°¡¸®½ºÆ® ÄÁÅؽºÆ®¿¡¼ ¹Ýȯ ÇÑ ¸ñ·Ï¿¡¼ ÇØ´ç Ç׸ñÀ̵Ǵ ''ÈùÆ® ''ºñÆ® ¸¶½ºÅ©°¡ ÇÊ¿äÇÕ´Ï´Ù. ÀÌ´Â $ subname = (caller) ´ë½Å¿¡ ÈξÀ ´õ ÀÐÀ» ¼öÀÖ´Â ÈξÀ ´õ ÀÐÀ» ¼ö ÀÖ½À´Ï´Ù. $ subname = caller -> {sub}; ¿ä±¸ »çÇ× : ¡¤ Perl.
Perl6 :: ³»Àå °ü·Ã ¼ÒÇÁÆ®¿þ¾î