æè¿ãPerlã®åå¼·ãå§ã㦠Moose ã¨ããã¢ã¸ã¥ã¼ã«ãé¢ç½ãã£ãã®ã§ãããã使ã£ã¦ãä¸çã®ããã¢ãåé¡ãã解ãã¦ã¿ã¾ããã ãä¸çã®ããã¢ãåé¡ãã¨ã¯ããã§ãã 1 ãã 40 ã¾ã§ã®æ°ãããªã³ãããããã°ã©ã ãæ¸ãã ãã ã 3 ã®åæ°ã¾ãã¯æ°ã« 3 ãå«ã¾ããæã¯ãã®æ°ã«ç¶ãã¦ãããããããããªã³ããã8 ã®åæ°ã®æã¯ãã®æ°ã«ç¶ãã¦ãã ã ããããããããããªã³ããããã¨ã ãããæ®éã«Perlã§æ¸ãã¨ããããªæãã«ãªãã¨æãã¾ãã use strict ; sub print_number { my ($n) = @_ ; print $n ; print "ããã" if (($n%3 == 0) || ($n =~ /3/)) ; print "ã ã ãããããã" if ($n%8 == 0) ; print "\n" ; } print_number($_) for 1..
{{#tags}}- {{label}}
{{/tags}}