Perlã®æ£è¦è¡¨ç¾ã®oãªãã·ã§ã³ã¦ãåãã§ãããã? ãã¡ã¯ãã¾ã使ã£ããã¨ããªãã£ãã®ã§ããï¼å¹çã®ããæ£è¦è¡¨ç¾å¦çãè¡ãã¨ãã«ã¯ä¾¿å©ãªãªãã·ã§ã³ã§ãï¼ oãªãã·ã§ã³ã使ãã¨ï¼ãã®æ£è¦è¡¨ç¾ã®ã³ã³ãã¤ã«ã1åããè¡ãããªããªãã¾ãï¼ãã¨ãã°ï¼æ£è¦è¡¨ç¾ã®è©ä¾¡ãç¹°ãè¿ãã®ãªãã§ç¾ããã¨ï¼ã³ã³ãã¤ã«ãä½åº¦ãè¡ããã¦å¹çãæªããªãã¾ãï¼ãããã£ãã¨ãã«oãªãã·ã§ã³ãä»ä¸ãã¦ããã°ï¼æ£è¦è¡¨ç¾ã³ã³ãã¤ã«ã®ãªã¼ãã¼ããããæå°éã«ã¨ã©ãããã¨ãã§ãã¾ãï¼ chomp(my $pattern = <>); for my $n (0..100000000000) { # ãããåæ°ã®å¤ãã«ã¼ã # oãã¤ããã°æ£è¦è¡¨ç¾ãã³ã³ãã¤ã«ãããã®ã¯ã¯ããã®1åã ããªã®ã§å®å¿ if ($n =~ m/^$pattern$/o) { say "match!"; } } æ£è¦è¡¨ç¾ãéçãªå ´åã¯ï¼Perlã¯ãã®ãããªæé©å
{{#tags}}- {{label}}
{{/tags}}