{"type":"rich","author_url":"https://blog.hatena.ne.jp/nekoshiki/","author_name":"nekoshiki","title":"Perlscript\u30e1\u30e2","width":"100%","provider_name":"Hatena Blog","blog_url":"https://nekoshiki.hatenadiary.org/","version":"1.0","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fnekoshiki.hatenadiary.org%2Fentry%2F20040123%2Fp2\" title=\"Perlscript\u30e1\u30e2 - \u732b\u5f0fWeb\u30e1\u30e2\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","height":"190","blog_title":"\u732b\u5f0fWeb\u30e1\u30e2","categories":["Web"],"description":"PerlScript\u3067\u3082DOM\u30a2\u30af\u30bb\u30b9\u304c\u53ef\u80fd\u306a\u4e8b\u306b\u6c17\u304c\u3064\u3044\u305f\u306e\u3067\u3001\u5c11\u3057\u8a66\u3057\u3066\u307f\u308b\u3002<script type=\"text/perlscript\"> <!-- my $objDoc = $window -> document; my $objPrg = $objDoc -> createElement(\"p\"); my $txtPrg = $objDoc -> createTextNode(\"Sample Text\"); $objPrg -> appendChild($txtPrg); $objDoc -> body -> appendChild($objPrg); # --> </script>\u2026","provider_url":"https://hatena.blog","image_url":null,"published":"2004-01-23 00:00:01","url":"https://nekoshiki.hatenadiary.org/entry/20040123/p2"}