{"height":"190","image_url":null,"categories":[],"url":"https://tokyo-doppo.hatenadiary.org/entry/20061221","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Ftokyo-doppo.hatenadiary.org%2Fentry%2F20061221\" title=\"\u8a9e\u306e\u5171\u8d77\u983b\u5ea6\u3092\u8a08\u7b97 - \u932f\u899a\u3044\u3051\u306a\u3044 \u3088\u304f\u898b\u308b\u3088\u308d\u3057\" 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","description":"#!/usr/bin/perl # mkco (make term cooccerration) use IPC::Open2; &main(); exit(0); sub main{ die \"Usage: $0 file\\n\" if(@ARGV != 1); my $in = $ARGV[0]; open(IN,$in)||die \"$in:$!\\n\"; open2(IN2,OUT2,\"chasen\") || die \"Can't invoke ChaSen\\n\"; my %hash=(); my %CO_COUNT = (); my @tmp_word = (); my $did = 1\u2026","blog_title":"\u932f\u899a\u3044\u3051\u306a\u3044 \u3088\u304f\u898b\u308b\u3088\u308d\u3057","author_url":"https://blog.hatena.ne.jp/tokyo-doppo/","provider_name":"Hatena Blog","type":"rich","blog_url":"https://tokyo-doppo.hatenadiary.org/","version":"1.0","published":"2006-12-21 00:00:00","author_name":"tokyo-doppo","title":"\u8a9e\u306e\u5171\u8d77\u983b\u5ea6\u3092\u8a08\u7b97","width":"100%"}