{"blog_url":"https://syohex.hatenablog.com/","type":"rich","provider_url":"https://hatena.blog","published":"2009-12-11 07:43:50","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fsyohex.hatenablog.com%2Fentry%2F20091211%2F1260485030\" title=\"\u9006\u30dd\u30fc\u30e9\u30f3\u30c9\u8a08\u7b97\u6a5f Perl\u7248 - Shohei Yoshida&#39;s Diary\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","blog_title":"Shohei Yoshida's Diary","description":"Perl\u3067\u66f8\u3044\u305f\u3089\u3060\u3044\u3076\u7c21\u5358\u3067\u3059\u306d\u3002 \u3084\u3063\u3071\u308a\u30b5\u30d6\u30eb\u30fc\u30c1\u30f3\u30ea\u30d5\u30a1\u30ec\u30f3\u30b9\u304c\u3042\u308b\u3068 \u6c17\u6301\u3061\u697d\u306b\u304b\u3051\u307e\u3059\u3002 #!/usr/local/bin/perl package ReversePolish; use Moose; use MooseX::AttributeHelpers; has stack => ( metaclass => 'Collection::Array', is => 'rw', isa => 'ArrayRef[Int]', default => sub { +[]; }, provides => { push => 'push_number', pop => 'pop_numb\u2026","author_name":"syohex","provider_name":"Hatena Blog","image_url":null,"width":"100%","version":"1.0","title":"\u9006\u30dd\u30fc\u30e9\u30f3\u30c9\u8a08\u7b97\u6a5f Perl\u7248","author_url":"https://blog.hatena.ne.jp/syohex/","categories":["perl"],"url":"https://syohex.hatenablog.com/entry/20091211/1260485030","height":"190"}