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

Question

我有一个变量 $photo (已被 base64 编码的巨大字符串)，我相信我需要使用 MIME::Base64 对其进行解码
像这样:

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

现在之后如何将 $decoded 重新转换为以前的 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