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

发布时间：2020-12-15 23:20:30 所属栏目：大数据来源：网络整理

导读：我有一个变量$photo(已经base64编码的巨大字符串),我相信我需要使用MIME :: Base64解码它用这样的东西： my $decoded= MIME::Base64::decode_base64($photo); 现在之后我怎么把$解码回原来的jpg？解决方法您可以将其写入文件,就像您可以编写任何其他数据

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

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

现在之后我怎么把$解码回原来的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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!