æ£è¦è¡¨ç¾ã®oオプションã«Perlã®æš—é»’é¢ã‚’見㟠- ã¯ã“ã¹ã«ã£ã ♨Perlã®æ£è¦è¡¨ç¾ã®oオプションã¦ã”å˜ã˜ã§ã—ょã†ã‹? ã†ã¡ã¯ã‚ã¾ã‚Šä½¿ã£ãŸã“ã¨ãŒãªã‹ã£ãŸã®ã§ã™ãŒï¼ŒåŠ¹çŽ‡ã®ã‚ˆã„æ£è¦è¡¨ç¾å‡¦ç†ã‚’è¡Œã†ã¨ãã«ã¯ä¾¿åˆ©ãªã‚ªãƒ—ションã§ã™ï¼Ž oオプションを使ã†ã¨ï¼Œãã®æ£è¦è¡¨ç¾ã®ã‚³ãƒ³ãƒ‘イルãŒ1回ã—ã‹è¡Œã‚ã‚Œãªããªã‚Šã¾ã™ï¼ŽãŸã¨ãˆã°ï¼Œæ£è¦è¡¨ç¾ã®è©•ä¾¡ãŒç¹°ã‚Šè¿”ã—ã®ãªã‹ã§ç¾ã‚Œã‚‹ã¨ï¼Œã‚³ãƒ³ãƒ‘イルãŒä½•åº¦ã‚‚è¡Œã‚ã‚Œã¦åŠ¹çŽ‡ãŒæ‚ªããªã‚Šã¾ã™ï¼Žãã†ã„ã£ãŸã¨ãã«oオプションを付与ã—ã¦ãŠã‘ã°ï¼Œæ£è¦è¡¨ç¾ã‚³ãƒ³ãƒ‘イルã®ã‚ªãƒ¼ãƒãƒ¼ãƒ˜ãƒƒãƒ‰ã‚’最å°é™ã«ã¨ã©ã‚ã‚‹ã“ã¨ãŒã§ãã¾ã™ï¼Ž chomp(my $pattern = <>); for my $n (0..100000000000) { # ã™ã”ã回数ã®å¤šã„ループ # oã‚’ã¤ã‘ã‚Œã°æ£è¦è¡¨ç¾ãŒã‚³ãƒ³ãƒ‘イルã•ã‚Œã‚‹ã®ã¯ã¯ã˜ã‚ã®1回ã ã‘ãªã®ã§å®‰å¿ƒ if ($n =~ m/^$pattern$/o) { say "match!"; } } æ£è¦è¡¨ç¾ãŒé™çš„ãªå ´åˆã¯ï¼ŒPerlã¯ã“ã®ã‚ˆã†ãªæœ€é©åŒ–
CGI::Applicationを使ã£ãŸã‚¢ãƒ³ã‚±ãƒ¼ãƒˆãƒ—ãƒã‚°ãƒ©ãƒ ã®ç¿’作
{{#tags}}- {{label}}
{{/tags}}