10/03/30 15:14:12
>>168
ありがとうございます。
早速調べて試してみたのですが、Not a GLOB reference のエラーが出ます。perl は初めてなので、なにか勘違いしていると思いますが、それがどこかわかりません。
#!/usr/bin/perl
use Archive::Zip;
use Archive::Zip::MemberRead;
$imgtype = 'jpeg';
#// file ①
# open(IMG, "./1.jpg") or die;
#// zip ②
$zip = Archive::Zip->new('./1.zip');
$IMG = Archive::Zip::MemberRead->new($zip, "1.jpg");
#// イメージ表示
binmode $IMG;
binmode STDOUT;
print "Content-type: image/$imgtype\n\n";
print while (<$IMG>);
#// 画像クローズ
close($IMG);
#// 終了
exit(0);
①を生かし、②を殺すとうまくいきますが、逆だと binmode $IMG の箇所でNot a GLOB referenceとなります