{"title":"InsideOut\u30c6\u30af\u30cb\u30c3\u30af","height":"190","url":"https://gfx.hatenadiary.org/entry/20081020/1224487336","image_url":null,"provider_name":"Hatena Blog","provider_url":"https://hatena.blog","author_url":"https://blog.hatena.ne.jp/gfx/","blog_title":"Islands in the byte stream (legacy)","blog_url":"https://gfx.hatenadiary.org/","width":"100%","published":"2008-10-20 16:22:16","version":"1.0","description":"Perl Best Practices(PBP)\u3067\u3082\u7d39\u4ecb\u3055\u308c\u3066\u3044\u305f\uff0cInside-Out\u30c6\u30af\u30cb\u30c3\u30af\u3068\u3044\u3046\u3082\u306e\u304c\u3042\u308a\u307e\u3059\u3002\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306e\u5b8c\u5168\u306a\u30ab\u30d7\u30bb\u30eb\u5316\u304c\u76ee\u7684\u306a\u308f\u3051\u3067\u3059\u3088\u3002\u4ee5\u4e0b\uff0c\u57fa\u672c\u7684\u306a\u5b9f\u88c5\u3092\u793a\u3057\u307e\u3059\u3002 # Foo.pm package Foo; use strict; use Scalar::Util qw(refaddr); my %bar_of; # field \"bar\" sub new{ my $self = bless \\do{ my $anon }, shift; $bar_of{refaddr $self} = shift; return $self; } sub DESTROY\u2026","author_name":"gfx","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fgfx.hatenadiary.org%2Fentry%2F20081020%2F1224487336\" title=\"InsideOut\u30c6\u30af\u30cb\u30c3\u30af - Islands in the byte stream (legacy)\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","categories":["Perl"],"type":"rich"}