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

Question

我有一个变量$photo（已经被base64编码的巨大字符串），我相信我需要使用MIME::Base64解码它 用这样的东西：

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

现在之后如何将$解码回原来的jpg？

Answer 1

您可以将其写入文件，就像您可以编写任何其他数据一样。不过，您需要设置filehandle to binary。

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