呼ã³å‡ºã—å…ƒã®ã‚³ãƒ³ãƒ†ã‚スト㧠eval ã™ã‚‹æ–¹æ³• - kazuhoã®ãƒ¡ãƒ¢ç½®ãå ´String::TT ãªã‚“ã‹ãŒãã†ã§ã™ã‘ã©ã€å‘¼ã³å‡ºã—å…ƒã®å¤‰æ•°ã‚’使ã„ãŸã„ã€ã¨ã„ã†ã“ã¨ãŒã¨ãã©ãã‚ã‚Šã¾ã™ã€‚ãŸã¨ãˆã°ã€ sub hello_to_alice { my $user = "Alice"; say_hello(); # "Hello to Alice!" ã¨è¨€ã£ã¦ã»ã—ã„ } ã£ã¦æ›¸ããŸã„ã¨ã‹ã€ãã†ã„ã†ã‚±ãƒ¼ã‚¹ã§ã™ã。çµè«–ã‹ã‚‰è¨€ã†ã¨ã€ä»¥ä¸‹ã®ã‚ˆã†ã« say_hello 関数を定義ã™ã‚Œã°å¯èƒ½ã§ã™ã€‚ã“ã‚“ãªæ„Ÿã˜ã€‚ sub say_hello { @_ = ('print "Hello to $user!\n"', undef); goto &DB::eval_in_parent_and_return; } package DB; sub DB::eval_in_parent_and_return { my ($expr, $retvar) = @_; eval("package " . (cal
http://ja.doukaku.org/28/lang/emacslisp/
Perlã§Recallã®è©± - Unknown::Programming
ã¯ã˜ã‚ã¦ã® coderepos 㧠arguments::callee åˆä½“験 - 竹迫ã®è¿‘æ³å ±å‘Š
æœ€é€Ÿã‚¤ãƒ³ã‚¿ãƒ¼ãƒ•ã‚§ãƒ¼ã‚¹ç ”ç©¶ä¼š :: Function.prototypeã‚’æ‹¡å¼µã—ã¦é…延実行を実ç¾ã™ã‚‹
{{#tags}}- {{label}}
{{/tags}}