ãã¾ã«ã¯ã¡ããã¨æ¸ããã»ããããããªã¨æã£ã¦æ¸ãã¦ã¿ãã ããã¾ã åå§çãªåç §ã«ã¦ã³ããã¼ã¹ã®ã¬ã¼ãã¸ã³ã¬ã¯ã·ã§ã³ã¯ã循ç°åç §ãçºçããã¨ããã®åç §ã«å«ã¾ãããªãã¸ã§ã¯ããååã§ããªãã¨ããåä»ãªåé¡ãæ±ãã¦ããã循ç°åç §ã¨ã¯ã1ã¤ä»¥ä¸ã®ãªãã¸ã§ã¯ããç°ç¶ã®åç §é¢ä¿ãå½¢æãã¦ããç¶æ ã®ãã¨ã§ããã®ãããªåç §ãæã¤ãªãã¸ã§ã¯ãã¯ãããã¦ã«ã¼ã (ããæç¹ã§è¨èªã©ã³ã¿ã¤ã ã管çãã¦ãããã¹ã¦ã®ã¹ã³ã¼ãã¨èãã¦ããã) ãã辿ãã¤ããªããªã£ã¦ã解æ¾ãããã«ãªã¼ã¯ãã¦ãã¾ãã ãã®åé¡ã¯ããã㪠LL è¨èªã«è¦ãããã Perl ã®å ´å use Devel::Peek qw(Dump); sub make_circular { my $foo = {}; my $bar = {}; my $baz = {}; $foo->{'bar'} = $bar; $bar->{'baz'} = $baz;
{{#tags}}- {{label}}
{{/tags}}