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

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

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

现在之后如何将 $decoded 重新转换为以前的 jpg？

最佳答案

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

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

关于perl - 如何解码base64并将其转换回perl中的图像，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/16425457/