{"author_url":"https://blog.hatena.ne.jp/hachi_ukkari/","author_name":"hachi_ukkari","blog_url":"https://hachi-ukkari.hatenadiary.org/","type":"rich","image_url":null,"title":"\u7dda\u5f62\u30af\u30e9\u30b9\u5206\u985e\u7528\u30c8\u30ec\u30fc\u30cb\u30f3\u30b0\u30c7\u30fc\u30bf\u751f\u6210","provider_name":"Hatena Blog","provider_url":"https://hatena.blog","description":"\u5bfe\u8c61\u95a2\u6570\u3001\u30c7\u30fc\u30bf\u7bc4\u56f2\u3001\u30ce\u30a4\u30ba\u306fYAML\u3067\u8aad\u307f\u8fbc\u3080\u3002\u5bfe\u8c61\u95a2\u6570\u306e\u6b21\u5143\u3068\u304b\u30ce\u30a4\u30ba\u3092\u62bd\u8c61\u5316\u3057\u3066\u3001\u30a4\u30b1\u3066\u308b\u611f\u3058\u306b\u66f8\u3051\u306a\u3044\u304b\u3057\u3089\u3002DataFactory.pl use strict; use warnings; #use Data::Dumper; my $factory = new DataFactory($ARGV[0]); for(my $i = 0; $i < 10000; $i++){ my $data = $factory->data(); if($$data[2] == 0){ print $$data[0] . \", \" . $$data[1] . \", \" . $$data[2] . \"\u2026","version":"1.0","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fhachi-ukkari.hatenadiary.org%2Fentry%2F20090217%2F1234879937\" title=\"\u7dda\u5f62\u30af\u30e9\u30b9\u5206\u985e\u7528\u30c8\u30ec\u30fc\u30cb\u30f3\u30b0\u30c7\u30fc\u30bf\u751f\u6210 - \u6ce5\u8239\" 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":"\u6ce5\u8239","categories":["Perl"],"width":"100%","published":"2009-02-17 23:12:17","url":"https://hachi-ukkari.hatenadiary.org/entry/20090217/1234879937"}