動的サブルーãƒãƒ³å‘¼ã³å‡ºã—http://d.hatena.ne.jp/macperl/20070127/p1 パラメータã«ã‚ˆã‚‹å‡¦ç†ã®åˆ†å²ã‚’ç°¡å˜ã«ã™ã‚‹ my $mode = $query->param( 'mode' ); main->$mode; #ã¾ãŸã¯ã€__PACKAGE__->$mode ã§ã‚‚OK ã“ã‚Œã ã¨ã€ãƒ¡ã‚½ãƒƒãƒ‰å‘¼ã³å‡ºã—(第一引数ãŒãƒ‘ッケージåã«ãªã‚‹)ã«ãªã£ã¦ã—ã¾ã†ã®ã§ã¯ãªã„ã§ã—ょã†ã‹ã€‚macperlã•ã‚“ã®å ´åˆã¯ã€å¼•æ•°ã‚’渡ã—ã¦ãªã„よã†ãªã®ã§ã€å‹•ä½œã«æ”¯éšœã¯ãªã„ã¯ãšã§ã™ãŒã€‚ 以å‰ä¼¼ãŸã‚ˆã†ãªã“ã¨ã‚’ã—ãŸã¨ãã¯ã€ä¸‹ã®ã‚ˆã†ã«ã‚„ã‚Šã¾ã—ãŸã€‚ &{$mode}; ã§ã™ãŒã€use strictã—ã¦ã‚‹ã¨ã‚¨ãƒ©ãƒ¼ãŒå‡ºã‚‹ã®ã§ã€no strict “refsâ€; ã—ã¦ãŠãå¿…è¦ãŒã‚ã‚Šã¾ã—ãŸã€‚ ã¾ãŸã€ã‚µãƒ–ルーãƒãƒ³ã«å¼•æ•°ã‚’渡ã—ã¦ã€ã—ã‹ã‚‚戻り値をå—ã‘å–るよã†ãªå ´åˆã¯ã€ä»¥ä¸‹ã®ã‚ˆã†ã«æ›¸ãã¾ã—ãŸã€‚ my return_val = do { no s
{{#tags}}- {{label}}
{{/tags}}