{"title":"\u65e5\u672c\u8a9e\uff08\u30b7\u30d5\u30c8JIS\uff09\u3092\u542b\u3093\u3060zip\u3084lzh\u3092UTF-8\u306b\u5909\u63db\u3057\u306a\u304c\u3089\u89e3\u51cd","width":"100%","height":"190","author_url":"https://blog.hatena.ne.jp/iizukaw/","image_url":null,"author_name":"iizukaw","published":"2008-08-29 00:00:00","url":"https://iizukaw.hatenadiary.org/entry/20080829/p1","categories":["perl","linux"],"blog_title":"\u306f\u3066\u65e5\u8a18","type":"rich","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fiizukaw.hatenadiary.org%2Fentry%2F20080829%2Fp1\" title=\"\u65e5\u672c\u8a9e\uff08\u30b7\u30d5\u30c8JIS\uff09\u3092\u542b\u3093\u3060zip\u3084lzh\u3092UTF-8\u306b\u5909\u63db\u3057\u306a\u304c\u3089\u89e3\u51cd - \u306f\u3066\u65e5\u8a18\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","provider_name":"Hatena Blog","provider_url":"https://hatena.blog","blog_url":"https://iizukaw.hatenadiary.org/","description":"\u30b7\u30d5\u30c8JIS\u306e\u65e5\u672c\u8a9e\u30d5\u30a1\u30a4\u30eb\u540d\u304c\u5165\u3063\u305fzip\u30d5\u30a1\u30a4\u30eb\u3092\u53d7\u3051\u53d6\u3063\u3066\u3057\u307e\u3063\u305f\u3068\u304d\u3001UTF-8\u74b0\u5883\u306eLinux\u4e0a\u3067unzip\u3059\u308b\u3068\u6587\u5b57\u5316\u3051\u3057\u3066\u5927\u5909\u306a\u3053\u3068\u306b\u306a\u308a\u307e\u3059\u2026 \u89e3\u51cd\u5f8c\u306b\u5909\u63db\u3057\u3088\u3046\u3068\u3057\u3066\u3082\u3069\u3046\u3057\u3088\u3046\u3082\u306a\u3044\u306e\u3067\u3001SJIS\u304b\u3089UTF-8\u306b\u30d5\u30a1\u30a4\u30eb\u540d\u3092\u5909\u63db\u3057\u305f\u4e0a\u3067\u89e3\u51cd\u3059\u308bPerl\u30b9\u30af\u30ea\u30d7\u30c8\u3092\u52c9\u5f37\u304c\u3066\u3089\u4f5c\u3063\u3066\u307f\u307e\u3057\u305f\u3002 CPAN\u30e2\u30b8\u30e5\u30fc\u30eb\u306e Archive::Zip \u306a\u3069\u304c\u5fc5\u8981\u3067\u3059\u3002 #!/usr/bin/perl # \u30d5\u30a1\u30a4\u30eb\u540d\u3092SJIS\u304b\u3089UTF-8\u306b\u5909\u63db\u3057\u306a\u304c\u3089zip\u3092\u89e3\u51cd\u3059\u308b use strict; use warnings; use Archive::Zip qw( :ERROR_CODES \u2026","version":"1.0"}