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

我有一个变量

$photo

（经过base64编码的巨大字符串），我相信我需要使用

MIME:：base64

比如说：

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

---

现在，在那之后，我如何像以前一样将$解码回jpg？

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

---

解码后，

$decoded

的内容应该是有效的jpg数据，假设

$photo

包含正确的Base64编码jpg图像。您是否在询问如何将该数据写入文件？或者你是说别的什么？是的，我在问如何把它写入文件。

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