strict無効化ã®èª¤è¬¬ - Islands in the byte stream (legacy)シンボルテーブルをæ“作ã™ã‚‹ã¨ãã«"no strict 'refs'"ã§ä¸€æ™‚çš„ã«strictを無効化ã™ã‚‹ã“ã¨ã¯ã‚ˆãã‚ã‚‹ãŒï¼Œãƒ‡ãƒãƒƒã‚°ã—ã«ãã„ãƒã‚°ãŒç´›ã‚Œè¾¼ã‚€å¯èƒ½æ€§ãŒã‚る。 ãŸã¨ãˆã°ï¼Œä»¥ä¸‹ã®ã‚ˆã†ã«ã‚¢ã‚¯ã‚»ã‚µã‚’å‹•çš„ã«ç”Ÿæˆã™ã‚‹ã‚³ãƒ¼ãƒ‰ã¯CPANã®ãã“ã‹ã—ã“ã«ã‚る。 sub make_accessor{ my($class, $property) = @_; no strict 'refs'; # simple read-only accessor *{$class. '::' . $property} = sub{ my($self) = @_; return $self->{$property}; } } ã“ã®ã‚ˆã†ãªã‚³ãƒ¼ãƒ‰ã«ã‚ˆã£ã¦ç”Ÿæˆã•ã‚ŒãŸãƒ¡ã‚½ãƒƒãƒ‰ã‚’，æ£ã—ãオブジェクトã«å¯¾ã—ã¦ä½¿ã†åˆ†ã«ã¯å•é¡Œãªã„。ã—ã‹ã—，ã“ã®ãƒ¡ã‚½ãƒƒãƒ‰ã‚’クラスメソッドã¨ã—ã¦å‘¼ã³å‡ºã™ã¨ï¼Œã‚°ãƒãƒ¼ãƒãƒ«å¤‰æ•°${$self}ã‚’å‚ç…§ã—，ãã®å€¤ã‚’ãƒãƒƒã‚·
åž‹ã‚°ãƒãƒ–ã¨ã‚·ãƒ³ãƒœãƒªãƒƒã‚¯ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ã§ãƒ¡ã‚½ãƒƒãƒ‰å®šç¾©ã™ã‚‹ã¨ãã®æ³¨æ„点 - Unknown::Programming
{{#tags}}- {{label}}
{{/tags}}