{"url":"https://dayflower.hatenablog.com/entry/20060502/1146579744","width":"100%","blog_title":"daily dayflower","provider_url":"https://hatena.blog","version":"1.0","published":"2006-05-02 23:22:24","blog_url":"https://dayflower.hatenablog.com/","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fdayflower.hatenablog.com%2Fentry%2F20060502%2F1146579744\" title=\" Perl \u306e\u5faa\u74b0\u53c2\u7167\u3068 GC - daily dayflower\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","title":" Perl \u306e\u5faa\u74b0\u53c2\u7167\u3068 GC","categories":["perl","memo"],"author_url":"https://blog.hatena.ne.jp/dayflower/","author_name":"dayflower","provider_name":"Hatena Blog","type":"rich","image_url":null,"height":"190","description":"\u6642\u9593\u304c\u306a\u3044\u306e\u3067\u8d70\u308a\u66f8\u304d\u2026 package Object::B; sub new { my $class = shift; bless { a => shift }, $class; } sub DESTROY { } package Object::A; my @B; sub createB { my $self = shift; push(@B, Object::B->new($self)); $self->{b_index} = $#B; } sub destroyB { my $self = shift; undef $B[$self->{b_index}]; } sub b { my \u2026"}