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

Question

我有一个变量$photo（已被 base64 编码的巨大字符串），我相信我需要使用以下内容对其进行解码MIME::Base64 ：

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

现在之后我如何让 $decoded 像以前一样重新变成 jpg？

Answer 1

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

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