{"provider_name":"Hatena Blog","provider_url":"https://hatena.blog","url":"https://likk.hatenablog.com/entry/20070426/1177584312","image_url":null,"html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Flikk.hatenablog.com%2Fentry%2F20070426%2F1177584312\" title=\" CGI::escapeHTML\u304c\u8ca7\u76f8\u3059\u304e\u308b\u306e\u3067 - NeverBlog::Likk::Unexistable;\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","description":"\u591a\u91cd\u914d\u5217\u3068\u304b\u30cf\u30c3\u30b7\u30e5\u3068\u304b\u30c0\u30e1\u30c0\u30e1\u3060\u3063\u305f\u306e\u3067\u3001\u3064\u3044\u30ab\u30c3(ry \u518d\u8d77\u4f7f\u3048\u3088 \u3068\u3044\u3046\u8a71\u3002 \u95a2\u6570\u90e8\u5206 sub escapeHTML { @_ = @_ ? @_ : $_ if defined wantarray; for (@_ ? @_ : $_) { my $val = $_; my $type = ref $val; if($type eq 'ARRAY'){ if ((scalar @_) > 1){ escapeHTML(@$_); }else{ my @array = @$_; @array = escapeHTML(@array); return \\@array; } }elsif($\u2026","blog_url":"https://likk.hatenablog.com/","title":" CGI::escapeHTML\u304c\u8ca7\u76f8\u3059\u304e\u308b\u306e\u3067","author_name":"likk","version":"1.0","type":"rich","height":"190","published":"2007-04-26 19:45:12","categories":["Perl/CGI"],"author_url":"https://blog.hatena.ne.jp/likk/","width":"100%","blog_title":"NeverBlog::Likk::Unexistable;"}