{"url":"https://lumin.hatenadiary.org/entry/20040520/p2","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Flumin.hatenadiary.org%2Fentry%2F20040520%2Fp2\" title=\" dotlessip \u3092 \u9006\u5f15\u304d - lumin\u306e\u30b3\u30fc\u30c9\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>","blog_url":"https://lumin.hatenadiary.org/","categories":["\u30b3\u30fc\u30c9"],"author_name":"lumin","published":"2004-05-20 00:00:01","description":"\u30ea\u30c8\u30eb\u30a8\u30f3\u30c7\u30a3\u30a2\u30f3\u3067dotlessip\u3092\u9006\u5f15\u304d #!/usr/bin/perl while(){ chomp $_; $_=~s/\\s+//g; my $ret=sprintf(\"%s.%s.%s.%s\",unpack('CCCC', pack('I',$_))); $ret=~/([0-9]+)\\.([0-9]+)\\.([0-9]+)\\.([0-9]+)/; $ret=\"$4.$3.$2.$1\"; my $host = gethostbyaddr(pack(\"C4\", split(/\\./, $ret)), 2); print \"$host($ret)\\n\"; }","image_url":null,"height":"190","width":"100%","provider_url":"https://hatena.blog","title":" dotlessip \u3092 \u9006\u5f15\u304d","author_url":"https://blog.hatena.ne.jp/lumin/","blog_title":"lumin\u306e\u30b3\u30fc\u30c9\u30e1\u30e2","provider_name":"Hatena Blog","type":"rich","version":"1.0"}