Perlでbase64イメージを表示するためにヘッダーが必要ですか？

Question

ブラウザで「画像の表示」を取得したようなhttpページで画像を表示しようとしています。私はこれを遠くに持っていて、Firefoxに自分の画像データを読み込ませるために他に何をしなければならないか分からない。 （この文字列は、$画像内に含まれているハッシュ画像前列： "BASE64、;のcharset = UTF-8 our_data_typeデータ"

私はで及びなしの両方の試みを考える

open (my $fh, "<", "/where/the/base64_encoded_img/is"); 
local $/= undef; 
my $image = <$fh>; 
close $fh; 
local $/= "\n"; 

use MIME::Base64; 
my $alpha; 
$alpha .= "Content-type: image/png;base64 \n"; #our image is a PNG 
$alpha .= "Content-length: " . MIME::Base64::encoded_base64_length($image) . " \n\n "; 
$alpha .= " "; 
#~ $alpha .= "<img src='$image'/>"; 
$alpha .= "$image"; 
print $alpha; 

変数）。

Answer 1

HTTPはペイロードをバイナリとして正しく送信します。 base64を使用する方法はなく、その必要もありません。

Answer 2

my $image = <$fh>; 

私はこれをお勧めしません。バイナリ読み取りを使用します。

content-transfer-encodingヘッダーを追加すると、base64またはバイナリを送信できます。 I/Oキャッシング（$|）をオフにするか、奇妙なことが起こる可能性があります。

Answer 3

プロジェクトから

追放base64方式、およびスクリプトのこの最小限のバージョンを実行します。

open (my $fh, "<", "/where/the/img/is"); 

{ 
    local $/= undef; 
    my $image = <$fh>; 
    close $fh; 
} 

print "Content-Type: image/png\n\n"; 
print $image; 

注localを使用してのポイントは含むブロックが終了したときに、変数の前の値が自動的に復元されていることであることを。ブロックに入れずに手動でデフォルト値に戻すと、localは何もしません。

これでも十分に良いことがあります：

print "Content-Type: image/png\n\n"; 
exec 'cat', '/where/the/img/is';