IO::Scalarだと_isSeekableでシークできないと言われるので、
my $zip = Archive::Zip->new();my $fh = IO::String->new($zip_data);$zip->readFromFileHandle($fh) == AZ_OK or warn 'open error';
な感じで。docにもちゃんと書いてあって、IO::Scalarは対応する予定はないそうです。
0 件のコメント:
コメントを投稿