教你用Perl 实现Base64编码

概述在用脚本后台发送邮件时，需要将html的内容转换成Base64编码的形式，这样邮件客户端会自动对Base64编码的内容进行解码，还原成原来的内容。 Base64.pl： #!/usr/bin/perluse strict;use warnings;use MIME::Base64;my $line;my $code;if (@ARGV < 1){ die "usage: Th

在用脚本后台发送邮件时，需要将HTML的内容转换成Base64编码的形式，这样邮件客户端会自动对Base64编码的内容进行解码，还原成原来的内容。

Base64.pl：

#!/usr/bin/perluse strict;use warnings;use MIME::Base64;my $line;my $code;if (@ARGV < 1){    dIE "usage: ThisCmd <filename>";}open(IN,$ARGV[0]) or dIE  "open $ARGV[0] fail";{    $/ = undef;    $line = <IN>;}$code = encode_base64($line);print "$code";close IN;

运行方式:

./Base64.pl a.txt

a.txt就是需要进行编码的文件。

原创文章，转载请注明： 转载自成长的企鹅

本文链接地址：教你用Perl 实现Base64编码

关于我：成长的企鹅简介

总结

以上是内存溢出为你收集整理的教你用Perl 实现Base64编码全部内容，希望文章能够帮你解决教你用Perl 实现Base64编码所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。