From tagami_hiroshi777 ＠ yahoo.co.jp  Fri Oct 18 20:46:57 2013
From: tagami_hiroshi777 ＠ yahoo.co.jp (=?iso-2022-jp?B?GyRCRUQ+ZTNIO1YbKEI=?=)
Date: Sat, 19 Oct 2013 12:46:57 +0900
Subject: [Tokyo-pm] =?iso-2022-jp?b?TUlNRTo6UGFyc2VyIBskQiRyO0hNUSQ3GyhC?=
	=?iso-2022-jp?b?GyRCJEYhIkU6SVUkThsoQi56aXAbJEIlVSUhJSQlayRyGyhC?=
	=?iso-2022-jp?b?GyRCPGgkaj1QJDkkSCEiJVUlISUkJWskLDJ1JGwkaxsoQg==?=
Message-ID: <20131019124657.19USZ1FKJM@yahoo.co.jp>

現在、PerlのMIME::Parserを利用して、E-mailから添付ファイルを取り出す処理を
を作っています。添付ファイルを取り出すところまでのロジックは作ることがで
きたのですが、添付ファイルが.zipファイルだと、ファイルの中身が壊れてしまう
状況になっています。添付ファイルを読み取る処理は、while(<STDIN>)としており、
binmode(STDIN)として、バイナリ読み込みを指定しているのですが、やっぱり
.zipファイルが壊れてしまいます。元の.zipファイルは、786バイトですが、
MIME::Parserを通すと、1143バイトと、大きくなってしまいます。これは
何が原因と考えられるでしょうか

OS:CentOS6.2
Perl:5.8.x
.ZIPファイルは、Windowsで圧縮したものでも、CentOSで圧縮したものでも
同様に、壊れてしまいます。