{"height":"190","blog_url":"https://blog.chairoi.me/","author_name":"mechairoi","url":"https://blog.chairoi.me/entry/20090615/1245093052","published":"2009-06-15 04:10:52","provider_name":"Hatena Blog","description":"Haskell\u306eMonad\u3092JavaScript\u3067\u5b9f\u88c5\u3059\u308b\u3068\u3057\u305f\u3089 - \u30e9\u30b7\u30a6\u30e9 \u3092\u53c2\u8003\u306b\u307b\u3068\u3093\u3069\u5199\u7d4c. #!/usr/bin/env perl use strict; use warnings; sub parse { my ($parser, $input) = @_; return $parser->({ result => [], source => $input, index => 0, }); } sub bind { my ($src, $dst) = @_; return sub { my $pstate = shift; my $nstate = $src->($pstate\u2026","type":"rich","blog_title":"*iroi*","categories":["perl"],"width":"100%","version":"1.0","author_url":"https://blog.hatena.ne.jp/mechairoi/","title":"Perl\u3067\u30d1\u30fc\u30b5\u30fc\u30b3\u30f3\u30d3\u30cd\u30fc\u30bf\u3082\u3069\u304d","provider_url":"https://hatena.blog","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fblog.chairoi.me%2Fentry%2F20090615%2F1245093052\" title=\"Perl\u3067\u30d1\u30fc\u30b5\u30fc\u30b3\u30f3\u30d3\u30cd\u30fc\u30bf\u3082\u3069\u304d - *iroi*\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","image_url":null}