{"provider_name":"Hatena Blog","height":"190","version":"1.0","url":"https://iww.hateblo.jp/entry/20130323/unpack","blog_url":"https://iww.hateblo.jp/","author_url":"https://blog.hatena.ne.jp/iww/","description":"\u30d0\u30a4\u30ca\u30ea\u30d5\u30a1\u30a4\u30eb\u3092\u8aad\u3080\u7df4\u7fd2\u3002 \u30d5\u30a1\u30a4\u30eb\u306e\u5148\u982d\u90e8\u5206\u3092\u8aad\u307f\u8fbc\u3093\u3067\u3001GZIP\u306e\u30d8\u30c3\u30c0(0x1F,0x8B,0x08,0x00)\u3092\u63a2\u3057\u3001\u305d\u306e\u5148\u982d\u4f4d\u7f6e\u3092\u51fa\u529b\u3059\u308b\u30d7\u30ed\u30b0\u30e9\u30e0\u3002 #!/usr/bin/perl use strict; use warnings; my $size=32768; open( my $fh, $ARGV[0] ) or die(\"open\"); binmode($fh); read( $fh, my $buf, $size ) or die(\"read\"); my @d = unpack( \"C*\", $buf ); for( my $i=0; $i<$size-4; $i++ \u2026","published":"2013-03-23 00:00:00","categories":["perl"],"title":" \u30d5\u30a1\u30a4\u30eb\u3092\u30d0\u30a4\u30ca\u30ea\u3068\u3057\u3066\u8aad\u307f\u8fbc\u3080","provider_url":"https://hatena.blog","author_name":"iww","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fiww.hateblo.jp%2Fentry%2F20130323%2Funpack\" title=\" \u30d5\u30a1\u30a4\u30eb\u3092\u30d0\u30a4\u30ca\u30ea\u3068\u3057\u3066\u8aad\u307f\u8fbc\u3080 - \u63ee\u767a\u6027\u306e\u30e1\u30e2\uff12\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","image_url":null,"width":"100%","type":"rich","blog_title":"\u63ee\u767a\u6027\u306e\u30e1\u30e2\uff12"}