画像の出力
画像や音声は、通常のテキストファイルと同じ取り扱いはしません。
改行で区切られたテキストファイルとは違い、バイナリファイルはread関数を使って読み込みます。
#!/usr/bin/perl
print "Content-type: image/jpeg\n\n";
open(DATA, "< 001.jpg");
while(read(DATA, $buf, 1024)) {
print $buf;
}
close(DATA);
ここでの注意点は、ヘッダー部分です。画像の形式などによってヘッダーは変える必要があります。
ヘッダーを間違えるとうまく表示されません。
下記に主なヘッダーを記します。
text/html : HTML文書
text/css : CSS文書
image/gif : GIF形式画像
image/jpeg: JPEG形式画像
image/png : PNG形式画像
audio/mpeg: MPEG(MP3)音声
video/mpeg: MPEG動画
application/pdf : PDF文書
application/x-shockwave-flash : Flash動画
