如何解码base64并将其转换回perl中的图像

Question

我有一个变量$photo(已经被base64编码的巨大字符串),我相信我需要使用这样的方法解码它MIME::Base64 :

my $decoded= MIME::Base64::decode_base64($photo);

现在之后我怎么把$解码回原来的jpg？

Answer 1

您可以将其写入文件,就像您可以编写任何其他数据一样.但是,您需要将文件句柄设置为二进制.

my $decoded= MIME::Base64::decode_base64($photo);
open my $fh, '>', 'photo.jpg' or die $!;
binmode $fh;
print $fh $decoded;
close $fh