æ¬æ¥ãæ¨æ¥ã«å¼ãç¶ãã©ãæ¸ãã§ãªãããªâª http://ja.doukaku.org/27/ use Perl6::Say; say for reverse (1..5); ã¨ãã¨é¢¨ä¿æ å ±æºè¼ ã©ãæãï¼ use LWP::Simple; print get 'http://ja.doukaku.org/feeds/comments/'; ã¨ãã¨é¢¨ä¿æ å ±æºè¼ ã©ãæãï¼ use List::MoreUtils qw/uniq/; use Perl6::Say; say for uniq(3,1,4,1,5,9,2,6,5,3,5,8,9,7); http://ja.doukaku.org/28/ use Perl6::Caller; use Perl6::Say; sub bar { foo() } sub baz { foo() } sub foo { return caller(1)-
http://ja.doukaku.org/32/ æè¿PHPãã£ã¦ãã®ã§ãªãããªãã¦ãPerlã触ã£ã¦ã¿ãã test_ã§å§ã¾ãã¡ã½ãããå ¨ã¦å¼ã³åºãããã§ãããã¯ã³ã©ã¤ãã¼ã§ãã£ã¦ã¿ãã use target; do { target->can($_) || sub {} }->() for grep { /^test_/ } keys %target::; ã¡ãã£ã¨ç¡çããèããªã ãããããå¿ãã¦ãªããã
ãã©ãæ¸ãï¼ ã¨ãã¨é¢¨ä¿æ å ±æºè¼ ã©ãæãï¼ ãããããã ãã©Perlã§æ¸ãã¦ã¿ãã print join ', ' , 'A' .. 'CV'; ãã¼ããé¢ç½ã¿ãä½ããªãã ãã¼ããæãã¤ããªãã ãã©ããã©ãæ¸ãï¼ãã§æ稿ããã³ã¼ããã¯ã¦ãªãã¤ã¢ãªã¼ã®è¨äºã¨ãã¦å¼ç¨ã§ããã¯ã¦ãªã¢ã¸ã¥ã¼ã«ã¿ãããªã®ãã§ãããããã®ã«ãã ã©ãæ¸ãï¼ã«æ稿ããããè¨äºã¨ãã¦æ¸ããè¿·ãã ã ã£ããã©ãæ¸ãï¼ã«æ稿ãã¦ã¯ã¦ãªããå¼ç¨ã§ããã°ä¸äºè§£æ±ºã ããï¼ãªãã¦ã
ãªãªã¼ã¹ãé害æ å ±ãªã©ã®ãµã¼ãã¹ã®ãç¥ãã
ææ°ã®äººæ°ã¨ã³ããªã¼ã®é ä¿¡
å¦çãå®è¡ä¸ã§ã
j次ã®ããã¯ãã¼ã¯
kåã®ããã¯ãã¼ã¯
lãã¨ã§èªã
eã³ã¡ã³ãä¸è¦§ãéã
oãã¼ã¸ãéã
{{#tags}}- {{label}}
{{/tags}}