{"published":"2009-06-03 14:47:56","author_name":"gfx","version":"1.0","categories":["Perl"],"provider_name":"Hatena Blog","image_url":null,"type":"rich","description":"js/scheme/perl/ruby/C - \u3053\u306e\u4e16\u3067\u6700\u3082\u5f79\u306b\u7acb\u305f\u306a\u3044\u95a2\u6570\u3092Perl\u3067\uff1a #!perl use strict; use warnings; sub pointless{ printf \"Turning off myself = 0x%X\\n\", \\&pointless; undef *pointless; }; pointless; pointless; \u7d50\u679c\uff1a Turning off myself = 0x8CEABCC Undefined subroutine &main::pointless called at pointless.pl line 11.","url":"https://gfx.hatenadiary.org/entry/20090603/1244008076","title":"pointless() in Perl","blog_title":"Islands in the byte stream (legacy)","blog_url":"https://gfx.hatenadiary.org/","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fgfx.hatenadiary.org%2Fentry%2F20090603%2F1244008076\" title=\"pointless() in Perl - 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>","width":"100%","height":"190","provider_url":"https://hatena.blog","author_url":"https://blog.hatena.ne.jp/gfx/"}