{"height":"190","blog_url":"https://annin102.hatenadiary.jp/","author_name":"annin102","provider_name":"Hatena Blog","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fannin102.hatenadiary.jp%2Fentry%2F20060613%2F1150194808\" title=\" perl\u3067\u4f5c\u696d\u6642\u9593\u7ba1\u7406\u306e\u30d5\u30a1\u30a4\u30eb\u3092\u51e6\u7406\u3057\u3066\u307f\u308b - \u3042\u3093\u306b\u3093\u306b\u3063\u304d\u3002\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","provider_url":"https://hatena.blog","author_url":"https://blog.hatena.ne.jp/annin102/","type":"rich","published":"2006-06-13 19:33:28","categories":["perl"],"width":"100%","url":"https://annin102.hatenadiary.jp/entry/20060613/1150194808","title":" perl\u3067\u4f5c\u696d\u6642\u9593\u7ba1\u7406\u306e\u30d5\u30a1\u30a4\u30eb\u3092\u51e6\u7406\u3057\u3066\u307f\u308b","version":"1.0","blog_title":"\u3042\u3093\u306b\u3093\u306b\u3063\u304d\u3002","description":"\u3082\u306e\u306e\u672c\u306b\u3088\u308b\u3068\u3001\u81ea\u5206\u306e\u4f5c\u696d\u6642\u9593\u3092\u8a18\u9332\u3059\u308b\u3068\u3044\u3046\u4e8b\u306b\u306f\u3001\u826f\u3044\u52b9\u80fd\u304c\u3042\u308b\u3089\u3057\u3044\u3002\u305d\u306e\u8fba\u306e\u52b9\u80fd\u306f\u3053\u306e\u8a18\u4e8b\u306e\u5185\u5bb9\u3067\u306f\u53d6\u308a\u6271\u308f\u306a\u3044\u3068\u3057\u3066\u3001\u3068\u308a\u3042\u3048\u305a\u826f\u3044\u3089\u3057\u3044\u306e\u3067\u8a18\u9332\u3092\u3059\u308b\u3088\u3046\u306b\u3057\u3066\u306f\u3044\u308b\u3002 \u3068\u3053\u308d\u3067\u8a18\u9332\u3057\u305f\u30c7\u30fc\u30bf\u306f\u96c6\u8a08\u3057\u3001\u7d71\u8a08\u3057\u3001\u60c5\u5831\u3068\u547c\u3079\u308b\u6bb5\u968e\u306b\u307e\u3067\u52a0\u5de5\u3057\u306a\u3044\u3068\u5f79\u306b\u306f\u7acb\u305f\u306a\u3044\u3002\u304c\u3001\u3053\u306e\u96c6\u8a08\u3068\u3044\u3046\u306e\u306f\u7d50\u69cb\u9762\u5012\u306a\u306e\u3067\u81ea\u52d5\u5316\u3057\u305f\u3044\u3068\u3053\u308d\u3002\u3067\u3001\u3061\u3087\u3046\u3069perl\u306e\u52c9\u5f37\u3082\u3057\u3066\u3044\u308b\u3057\u3001\u7df4\u7fd2\u304c\u3066\u3089\u6642\u9593\u306e\u96c6\u8a08\u3092\u3059\u308b\u30b9\u30af\u30ea\u30d7\u30c8\u3092\u66f8\u3044\u3066\u307f\u308b\u3053\u3068\u306b\u3057\u305f\u3002 use strict; my $prev_time; my $prev_type; my %time_per_type; while(<>){ chomp; my @d\u2026","image_url":null}