Perl을 사용하여 base64 이미지를 표시하려면 헤더가 필요합니까?

Question

그래서 브라우저에서 "이미지보기"를 사용하는 것과 같은 http 페이지로 이미지를 표시하려고합니다. 나는 이걸 가지고 있고 파이어 폭스가 내 빌어 먹을 이미지 데이터를 읽으려면 뭘해야하는지 잘 모른다. (이 문자열은 $ 이미지 내에 포함되어 문자열 해시 된 이미지 전에 ", base64로; 문자셋 = 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는 페이로드를 2 진수로 올바르게 전달합니다. base64를 사용할 방법이 없으며 필요도 없습니다.

Answer 2

my $image = <$fh>; 

권장하지 않습니다. 바이너리 읽기를 사용하십시오.

content-transfer-encoding 헤더를 추가하면 base64 또는 바이너리를 보낼 수 있습니다. I/O 캐싱 ($|)을 해제하거나 이상한 일이 발생할 수 있습니다. local를 사용하는 점은 변수의 이전 값이 때 자동으로 포함하는 블록의 끝을 복원 있다는 것을

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

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

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

참고 :

Answer 3

배니 쉬의 프로젝트에서 64 기수, 그리고 스크립트의 최소한의 버전을한다. 블록에 넣지 않고 수동으로 기본값을 복원하면 local이 처리하지 않습니다.

심지어이 충분해야한다 :

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