Devel::Cycle - オブジェクトのメモリ循環を発見する - perldoc.jp

名前¶ Devel::Cycle - オブジェクトのメモリ循環を発見する 概要¶ #!/usr/bin/perl use Devel::Cycle; my $test = {fred => [qw(a b c d e)], ethel => [qw(1 2 3 4 5)], george => {martha => 23, agnes => 19} }; $test->{george}{phyllis} = $test; $test->{fred}[3] = $test->{george}; $test->{george}{mary} = $test->{fred}; find_cycle($test); exit 0; # output: Cycle (1): $A->{'george'} => \%B $B->{'phyllis'} => \%A Cycle (2): $A->{'ge

[elecsta]

devel cycle perl debug memo