Imapのサーバーのユーザーディレクトリーに保存されているファイルの名前はMIMEではなく、UTF-7だそうです。<\/p>\n
で、それを変換するperlスクリプトを作りました。作ったと言っても当該のCPANモジュールを呼び出すだけですが。<\/p>\n
ただし、これには罠があって、CPANモジュールのIMAP-UTF-7の説明<\/a>には間違いがあります。<\/p>\n ではなくて、<\/p>\n としないといけません1<\/a><\/sup>例えば、debianのフォーラム参照<\/a>。<\/span>。ずいぶん昔から指摘されているのに、直っていません^^;<\/p>\n スクリプト付けときます。GNU GPL 3.0 or laterっちゅうことで。<\/p>\n 使い方としては、<\/p>\n などとします。<\/p>\n","protected":false},"excerpt":{"rendered":" Imap\u306e\u30b5\u30fc\u30d0\u30fc\u306e\u30e6\u30fc\u30b6\u30fc\u30c7\u30a3\u30ec\u30af\u30c8\u30ea\u30fc\u306b\u4fdd\u5b58\u3055\u308c\u3066\u3044\u308b\u30d5\u30a1\u30a4\u30eb\u306e\u540d\u524d\u306fMIME\u3067\u306f\u306a\u304f\u3001UTF-7\u3060\u305d\u3046\u3067\u3059\u3002 \u3067\u3001\u305d\u308c\u3092\u5909\u63db\u3059\u308bperl\u30b9\u30af\u30ea\u30d7\u30c8\u3092\u4f5c\u308a\u307e\u3057\u305f\u3002\u4f5c\u3063\u305f\u3068\u8a00\u3063\u3066\u3082\u5f53\u8a72\u306eCPAN\u30e2\u30b8\u30e5\u30fc\u30eb\u3092\u547c\u3073\u51fa\u3059\u3060\u3051\u3067\u3059\u304c\u3002 \u305f\u3060\u3057\u3001\u3053\u308c\u306b\u306f\u7f60\u304c\u3042\u3063\u3066\u3001CPAN\u30e2\u30b8\u30e5\u30fc\u30eb\u306eIMAP-UTF-7\u306e\u8aac\u660e\u306b\u306f\u9593\u9055\u3044\u304c\u3042\u308a\u307e\u3059\u3002 use Encode qw\/encode decode\/; \u3067\u306f\u306a\u304f\u3066\u3001 use Encode::IMAPUTF7; \u3068\u3057\u306a\u3044\u3068\u3044\u3051\u307e\u305b\u3093\u3002\u305a\u3044\u3076\u3093\u6614\u304b\u3089\u6307\u6458\u3055\u308c\u3066\u3044\u308b\u306e\u306b\u3001\u76f4\u3063\u3066\u3044\u307e\u305b\u3093^^; \u30b9\u30af\u30ea\u30d7\u30c8\u4ed8\u3051\u3068\u304d\u307e\u3059\u3002GNU GPL 3.0 or later\u3063\u3061\u3085\u3046\u3053\u3068\u3067\u3002 #!\/usr\/bin\/perl # imapdecode.pl # by I Hieda (JE1SGH), 22 Apr 2016 # GNU GPL 3.0 or later use Encode::IMAPUTF7; $filename = @ARGV[0]; $outname=Encode::decode(‘IMAP-UTF-7’,$filename); binmode(STDOUT,”:utf8″); print $filename,” : “; print $outname,”\\n”; \u4f7f\u3044\u65b9\u3068\u3057\u3066\u306f\u3001 \u00a0for i in `ls`; do imapdecode.pl $i; done … Continue reading “IMAP\u30e1\u30fc\u30eb\u30dc\u30c3\u30af\u30b9\u306e\u5371\u6a5f (2)”<\/span><\/a><\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_daextam_enable_autolinks":"","footnotes":""},"categories":[10],"tags":[100,227,229,231,302,377,429,432],"class_list":["post-5788","post","type-post","status-publish","format-standard","hentry","category-network","tag-apple-mail","tag-imap","tag-imaps","tag-ios","tag-mime","tag-retrospect","tag-thunderbird","tag-time-machine"],"publishpress_future_action":{"enabled":false,"date":"2026-06-02 08:20:48","action":"change-status","newStatus":"draft","terms":[],"taxonomy":"category","extraData":[]},"publishpress_future_workflow_manual_trigger":{"enabledWorkflows":[]},"_links":{"self":[{"href":"https:\/\/je1sgh.mydns.jp\/je1sghblog\/index.php?rest_route=\/wp\/v2\/posts\/5788","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/je1sgh.mydns.jp\/je1sghblog\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/je1sgh.mydns.jp\/je1sghblog\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/je1sgh.mydns.jp\/je1sghblog\/index.php?rest_route=\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/je1sgh.mydns.jp\/je1sghblog\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=5788"}],"version-history":[{"count":0,"href":"https:\/\/je1sgh.mydns.jp\/je1sghblog\/index.php?rest_route=\/wp\/v2\/posts\/5788\/revisions"}],"wp:attachment":[{"href":"https:\/\/je1sgh.mydns.jp\/je1sghblog\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=5788"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/je1sgh.mydns.jp\/je1sghblog\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=5788"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/je1sgh.mydns.jp\/je1sghblog\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=5788"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}use Encode qw\/encode decode\/;<\/pre>\n
use Encode::IMAPUTF7;<\/pre>\n
#!\/usr\/bin\/perl\n# imapdecode.pl\n# by I Hieda (JE1SGH), 22 Apr 2016\n# GNU GPL 3.0 or later\n\nuse Encode::IMAPUTF7;\n\n$filename = @ARGV[0];\n\n$outname=Encode::decode('IMAP-UTF-7',$filename);\nbinmode(STDOUT,\":utf8\");\n\nprint $filename,\" : \";\nprint $outname,\"\\n\";\n\n<\/pre>\n\u00a0for i in `ls`; do imapdecode.pl $i; done<\/pre>\n